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Foreword 


Many people who play arcade games take them for granted. 
But when you try to program such a game on your 64, you 
quickly learn to appreciate the amount of work and creativity 
behind every game. Characters and sprites on the screen, 
movement, collisions, sounds, and screen displays must be fit 
together into a complex, yet complete, whole. All this can be 
rather intimidating, especially if you're just starting. 

This book takes you step by step through the process of 
designing and then programming a game. The principles and 
techniques of writing arcade games are outlined clearly and in 
detail, including examples from the six complete games 
provided in the book. The 64's sound, graphics, and sprite 
capabilities are fully demonstrated, and are shown in actual 
programming situations which you can duplicate. 

You'll see how to develop a game from an idea and, using 
examples from successful arcade games, you'll learn what 
makes a good game. Techniques of setting up a playing field 
for your game are shown, as well as how to create the figures 
that will move across the screen. You'll even learn how to make 
the computer control game opponents while the player moves 
a figure with the keyboard or joystick controls. And the 
extras—such as sounds and graphic title displays—are not 
forgotten. As you read through the book, you'll actually create 
your own arcade-style game. 

As with all COMPUTE! books, this guide to creating 
arcade games will be useful not just while you're writing your 
first game, but again and again. You'll refer to it for more infor¬ 
mation and more complex game ideas and techniques on the 
Commodore 64 as your skills improve. With this book and 
your creativity and imagination, you'll quickly be developing 
and writing games of a quality you never thought possible. 
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The 64 Is a Game 
Machine 


The best use of computers is playing games. If they can pay 
their own way by doing useful programs like accounting or 
word processing or math, so much the better. But I wouldn't 
care if they couldn't do any of those things, as long as they can 
create videogames, worlds that never before existed, where we 
can do things that we might never do anywhere else. 

Flying on giant birds and jousting with lance-bearing 

enemies. 

Saving the world from dozens of species of alien invaders. 

Burrowing through the ground in pursuit of dragons. 

Piloting starships, balloons, biplanes. 

And really crazy things, like wearing a kangaroo suit and 
punching out monkeys, escaping from cute ghosts, climbing a 
skyscraper populated by homicidal clowns, rescuing a girl 
from a gorilla and then rescuing the gorilla from the rescuer— 

After dumping a few hundred quarters into video arcade 
games, I decided it would be a better investment of my money 
to buy a computer. Then I could play games as often as I liked 
at home, without waiting for other people to finish playing, 
and without having to spend a lot of money before I finally got 
good enough to beat the machine. 

But I had more than convenience in mind. I didn't just 
want a videogame machine. I wanted to write my own games, 
maybe a game so good that it would end up in the arcade, too, 
among the others that I had enjoyed so many times. 

I started with a VIC-20, and learned the hard way. Trying 
things out, finding out what worked and what didn't. I kept 
wishing for a single book that would tell me the things I 
needed to know to program games. I didn't find it. So when I 
finally figured it out, I wrote it myself, and called it Creating 
Arcade Games on the VIC. 

Then I got a Commodore 64. Suddenly I had elbow 
room—enough memory to hold several character sets, sprites 
to make animation and movement easy, new features like 
multicolor characters and sprites, and a screen 40 columns 
wide. 

The basic principles of game design are the same on all 
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computers. But the techniques for carrying them out differ 
from one machine to the next. Commodore 64 videogamers 
needed their own book on game programming, and with so 
many great features to work with, I had to remind myself that 
I was working as I wrote this book. 

I'm assuming that you're reasonably familiar with the 
basics of BASIC—how to use PRINT and GOTO, FOR-NEXT 
loops and GOSUB-RETURN subroutines. If you aren't 
comfortable with those, you might want to scan your owner's 
manual, or at least keep it handy in case questions come up 
while you're creating games. What this book provides is the 
specific programming techniques you'll need for game 
creation. 

The Design of the Book 

The place to start in creating a game is planning how you want 
the game to play. So in Chapter 2, you'll design what will 
actually go on between the computer and the player. When you 
have a pretty clear idea of what you want to end up with, it's 
much easier to get the computer to give you exactly the right 
results. 

Once you have your game in mind, the next few chapters 
will introduce all the BASIC programming tools you'll need. 
How to set up a screen. How to design custom character sets. 
How to make characters move on the screen and how to 
animate them. How to create sprites and move them with the 
joystick. How to set up relationships between different figures 
on the screen. The uses of sounds and how to produce them. 
And how to help the player understand what he's supposed 
to do. 

Finally, since no one book can possibly include everything 
there is to know, there'll be a list of other books you can use to 
learn even more. 

How to Use This Book 

Try It Out 

Each chapter will include different problems to solve and ques¬ 
tions to answer. Sometimes you won't need to actually try the 
sample program—it may be something that you've already 
learned. But there are many things that can't be explained. 
They have to be shown. And since I won't be leaning over your 
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The 64 Is a Game Machine 


shoulder while you sit at your computer, the only way I can 
show you is for you to type in example programs or work out 
problems. 

The only way to really learn a programming technique is 
to try it out. In fact, the most helpful thing you can do for your¬ 
self is to experiment. Once you've tried the example I give you, 
think of problems for yourself and try to solve them using the 
techniques you've just learned. After all, you're learning a 
language—and languages are learned only through practice. 

Besides, the fun of programming isn't in reading a book— 
it's in the programming, giving the computer instructions and 
seeing what happens. The point of this book is to help you 
have fun making games, so the more creating you do while 
reading the book, the more value it will have for you. 

Be Patient 

Your learning process won't be just like mine. Some things 
you'll grasp faster than I did; other things may take more 
effort. One thing is for sure—unless you're already an expert 
programmer, programming a game is going to take time. Not 
only the time of typing the program lines in the first place, but 
also the time it takes to figure out why the game isn't working. 
Because unless you're a miracle worker, your program is going 
to have some bugs in it, some places where things aren't 
happening the way you planned. 

So be patient with yourself. Even with the help of this 
book, you can't expect to learn everything in a few hours one 
night. And don't expect your first program to run smoothly. If 
you're like me, you'll have more than a few times when you sit 
there staring at some program lines, trying to figure out why 
the program crashes whenever it gets there, only to discover 
that you typed a zero instead of the variable O; or that you 
forgot to have your countdown FOR-NEXT loop STEP -1, so 
it's only executing once; or that you put the wrong variable as 
the subscript of an array; or that your GOSUB refers to a line 
that you deleted in your last series of revisions. 

That sort of thing happens to everybody. It's just one of 
the realities of working with a computer. Your 64 will always 
do exactly what you say—not what you really meant to say. 

Look at Other People’s Programs 

In almost every computer magazine there are programs listed 
in full so that readers can type them in and use them. At first 
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those programs look like a lot of gibberish to a beginning 
programmer. But the more you learn, the more those programs 
make sense to you. You can see at a glance what's going on in 
certain subroutines; you can spot where loops begin and end, 
and what they're accomplishing. 

You can learn quite a bit about programming just by 
typing in other people's programs. Besides getting typing prac¬ 
tice, you can see how they solved particular problems. 

You'll notice recurring patterns, techniques you can use. 
But you'll also notice places where they took the long way to 
solve a problem, where you know a shortcut. I remember how 
surprised I was to see widely published programs using some 
roundabout, slow methods that I wouldn't have used. 

Then, when you have their program typed in and saved 
on tape or disk, experiment with it, just the way you'd experi¬ 
ment with the exercises in this book. If you don't like the colors 
they used, find where the program assigns the color values 
and change them. If you want a ghost turned into an octopus, 
find out where the program sets up the character set and rede¬ 
fines the characters. Sometimes your experiments may crash the 
program, but then you can figure out why and do better on the 
next try. 

One of the biggest advantages, you see, is that you have a 
complete program that already works. It's easier to find out 
and learn from your mistakes when you know that the error 
must be in the two or three lines you changed! 

Write Down Your Ideas 

While you're reading this book, especially after an hour or so 
of steadily working at the computer, you're going to start 
getting some ideas. That's the way creativity works—when 
your mind is working hard on something exciting, the ideas 
start to flow. 

Often it will be an idea completely unrelated to the 
problem you're working on at the moment. It might be an idea 
for a special effect, or a game scenario, or a movement 
pattern—anything at all. 

You should write it down. Because once that creative 
mood has passed, it's often as hard to remember a good idea as 
it is to remember a dream that has slipped away from your 
conscious mind. 

And those ideas are valuable. Not all of them will be 
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fantastic. Some of them may not even work. But game design 
isn't just programming techniques. There are plenty of excel¬ 
lent programmers who still can't come up with a game worth 
spending a single quarter on. Why? They've mastered the 
skills, but they don't know what a player will have fun with. 
Then there are other programmers who are sometimes clumsy 
and disorganized in their programming, but their ideas are so 
good that the players will stand in line to play their games. 

In fact, some videogame manufacturers have recognized 
the difference between game design and game programming, 
and split the jobs. The game designer writes down, in English, 
an exact description of every single thing that happens in the 
game—what happens when you push the joystick up, down, 
left, right; what the button does; what happens when object A 
and object B on the screen collide; how many points each goal 
should be worth; how many seconds or fractions of seconds 
each activity should take; and so on. 

When it's all there, on paper, then the designed game is 
given to the programmers, who do their best to create a 
program that does exactly what the designer specified. Some¬ 
times there have to be compromises, because there are some 
ideas that just can't be executed within the available memory 
or within the available time. And the game is certainly as much 
the creation of the programmer as of the designer, and takes as 
much creativity. 

But it's a different kind of creativity. And even though I 
can try to stimulate you with this book, I can't teach you how 
to think up good game ideas the way I can teach you how to 
redefine a character. That's something you have to develop 
yourself. 

So save every idea you think of. You never know what it 
might lead to. And it's your ideas more than your program¬ 
ming skill that will make the difference between run-of-the- 
mill games and great games that people can't wait to play 
again. 

It Isn't Done When It's Done 

What happens when you've taken your game from the first 
idea to a working game? All the bugs are out of the program, 
and it works just the way you planned it. What now? 

Well, if you were creating the game just for yourself, and 
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you're satisfied with the way it plays, then congratulations— 
you're finished. 

But if you want to offer the game to commercial software 
houses or to magazines that publish games, then you still have 
a few things to do. 

Test the Game 

Play the game awhile. How fun is it for you? If you're already 
bored with it, it may need some work. 

Better yet, invite the world's toughest critics to test the 
game for you. They live right in your neighborhood—any kids 
who play arcade games will do. Tell them you've got a game 
you're in the middle of programming, and you need players to 
test it. You probably won't lack for volunteers. 

Then watch them as they play. Don't ask questions; don't 
explain; don't ask for their opinion. Friends might tell you a 
game is better or worse than it really is—after all, they aren't 
game designers. Just watch them play, and ask yourself these 
questions: 

1. Where in the game do they get puzzled, confused, 
annoyed? That's exactly where your directions need to 
be clearer. 

2. Are they excited, or at least interested? If they aren't 
enjoying themselves, is it because the game is too easy 
or boring, or is it because the game is too hard and 
frustrating? 

3. How hard is it for them to get the hang of player move¬ 
ment? How responsive are your controls? 

4. Watch how the scoring goes—are they beating the 
game right away, or getting nowhere? 

5. How long do they play? Is the game over instantly? 
When it's done, do they immediately want to play it 
again? The surest sign of a successful game is that they 
don't want to quit. The surest proof that a game has 
problems is if they come to you within a few minutes 
and ask, "Got any other games?" 

Improve It 

Just because the program runs doesn't mean the game is 
perfect—it only means the program is perfect. After your own 
tests and the neighborhood-kid tests, what can you think of 
that would make the game more fun, or make it stay inter¬ 
esting longer? 
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If you can think of some things, analyze your program 
and see how easy it would be to make the changes. If it's 
feasible, go ahead and try the improvement. But make sure 
you save a couple of tape or disk copies of the program that 
ran correctly, in case your improvements go so far off track that 
it's easier to go back and start over. 

What You Should Have on Hand 

In writing this book. I'm assuming that you have available 
some basic resources. 

1. A Commodore 64. 

2. A Datassette or a disk drive. After all the work of 
programming, you certainly want to be able to save the 
game and play it again and again. 

3. Commodore 64 User's Guide.lt came with your computer. 

4. Commodore 64 Programmer's Reference Guide (published by 
Sams). It's available at most places that sell the 
computer, and extremely valuable in problem solving. 
(Other recommended books are listed at the end of this 
book.) 

5. Plenty of cassettes or disks to save your programs. If 
you're using cassettes, I suggest that you use a low- 
grade, low-noise tape. They're cheap and work better 
for computer purposes than high-quality sound 
cassettes. And you'll always want to have some extra 
cassettes on hand, so you can store different versions of 
the same program. All it will take is one time when you 
have to quit in the middle of a revision but don't have a 
single blank cassette to use. You don't want to wipe out 
a working program to save a half-finished job—but you 
also don't want to have to start that job over again. 

6. Graph paper. The best is the kind that emphasizes 8x8 
groups of tiny squares, like the example in Chapter 4. 

7. A 6-inch ruler. This is very helpful when you're typing 
in a program out of a book. By putting it under the line 
you're typing, you make sure you don't accidentally 
skip down into another line with similar commands. 

8. A pocket calculator. I know, you have a few bucks 
worth of computer right there in front of you. But many 
times it's a lot simpler to use a calculator, which is 
designed to do nothing but arithmetic, than to set up 
PRINT statements on the 64 in order to solve a problem. 
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9. A color TV How are you going to design color games on 
a black and white monitor? I paid only $130 for a used 
19-inch TV with remote control—you don't have to 
break the bank to see your games in color. 

Introducing the Commodore 64 

If you just got your 64 and aren't really familiar with it, then 
let's spend a page or two getting acquainted with the machine. 
If you're already familiar with the computer, then you can 
probably skim or skip the rest of this chapter and go right on to 
Chapter 2. 

Memory 

The Commodore 64 comes with 64K. The K stands for kilo¬ 
bytes, which means 1000 bytes. But that's a rounded-off 
number. A kilobyte is actually 1024 bytes, and 64K is actually 
64 of those, for a total of 65,536 bytes. 

Human beings count memory in kilobyte units because 
"1000 bytes" sounds pretty close to our usual base 10 
numbering. But the computer only rarely thinks in kilobytes. 
Instead, it naturally groups memory in pages. Each page 
consists of 256 bytes. And a 64K machine contains 256 pages: 
256 times 256 equals 65,536. 

Why is 256 the magic number? It comes from the size of a 
byte. Each byte consists of eight bits. Each bit is either a 0 or a 
1. To the computer, the number 56 is a byte that looks like this: 
00111000. In the decimal number 56, the 6 is the rightmost 
column, the ones column. The 6 means 6. But the 5 is in the 
tens column. The 5 doesn't mean 5, it means 50. The computer 
also uses columns, but the columns mean different things. The 
rightmost column is the ones column. The next one to the left 
is the twos column. Then come the 4s, 8s, 16s, 32s, 64s, and 
128s. And the numbers you can find in those columns are 
pretty simple: either a 1 or a 0. Either there is a 64 in the 
number or there isn't. If there is, there'll be a 1 in the 64s 
column. If there isn't, there'll be a 0. 

So the number 00111000 has no Is, no 2s, no 4s. It has an 
8 and a 16 and a 32. It has no 64s or 128s. When you add up 
the numbers 8,16, and 32, you get 56. 

Of course, the computer doesn't have to add up the digits 
of 00111000, any more than you ever think "56 is 6 plus 50." 

You see 56 and you understand what it means. The computer 
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sees 00111000 and it understands. It has as much trouble 
figuring out 56 as we have figuring out 00111000. 

What is the lowest number a byte can hold? 00000000. 

And what is the highest number? 11111111. That's 
128 + 64 + 32 + 16 + 8 + 4 + 2 + 1. It equals 255. 

That's the range of possible numbers that can be contained 
in any one byte of memory. The numbers from 0 to 255. 

Notice that this means a byte can have 256 possible 
values. 0 is as much a number as 255. So even though 255 is 
the highest value that can be contained in a byte, the byte can 
hold a total of 256 possible numbers, including 0. 

Back to the reason why the computer thinks in pages. 
Every byte in memory has an address. That address must be 
expressed in the same numbering system. Fortunately, the 
6510 microprocessor in your Commodore 64 uses two bytes to 
number the addresses. 

The first address in the computer is the two-byte address 
00000000 00000000. The byte on the left is the high byte; the 
one on the right is the low byte. The next address is 00000000 
00000001. (Notice that the first address is 0, and address 1 is 
the second byte in memory. Computer users quickly learn to 
start counting everything with 0. Ask a programmer to count 
off the first eight numbers, and he'll say "0,1, 2, 3, 4, 5, 6, and 
7.") 

Address 255 is binary 00000000 11111111. (Remember, 
address 255 is the 256th memory location.) Those first 256 
bytes all had the same high byte: 00000000. Therefore, we say 
that they are all in the same page in memory. It is as if computer 
memory were a book with 256 pages (from 0 to 255), and each 
page has exactly 256 words (or bytes), and each word has 
exactly eight letters (or bits). 

That's 256 pages of 256 words each. 65,536 bytes of 
memory, each with its own unique address. Your computer 
can't find any more addresses than that—it can't think of an 
address higher than 65,535 (remember, we started numbering 
at 0). Your 64 plays a few tricks, however, to squeeze in more 
memory. 

RAM and ROM. But before getting to those tricks, let's 
distinguish between ROM and RAM. RAM is random access 
memory, and ROM is read only memory. You can use the 
PEEK function to find out what value is stored in the byte of 
memory at any address in the computer. You just say some- 
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thing like PRINT PEEK(65535) and BASIC goes and looks at 
address 65535 and finds out what number is stored there. It 
will always be a number from 0 to 255, because even though 
that location has a two-byte address (1111111111111111), it is 
only one byte of memory. 

PEEKing a byte doesn't change what's there—you look, 
but you don't change it, any more than your reading this book 
changes the letters on the page. So ROM and RAM can both be 
PEEKed. However, ROM cannot be POKEd. POKEing changes 
the value stored in a byte. You can use POKE to change any 
value in RAM: POKE 53281,5. But the ROM memory locations 
are permanent. They contain programs, and if you changed 
them you would wreck the programs. BASIC, for instance, is a 
program stored in ROM. So POKE doesn't work with ROM, 
except in the case of certain hardware registers, which you can 
POKE in order to give the 64 special instructions. For instance, 
the location 53281 is the register that controls the screen color. 
You can POKE any number from 0 to 15 into that location, and 
the screen color will change accordingly. 

ROM sits on top of RAM. It uses up part of it. The char¬ 
acter set, for example, is 16 pages of ROM starting at address 
53248. You can't change the numbers stored there. So those 
addresses are effectively closed to you. The area occupied by 
BASIC, the Kemal, the SID sound chip, and the VIC-II video 
chip are likewise unavailable. But don't worry; you still have 
plenty of memory left to work with. And on special occasions, 
you can even switch out all the ROMs and get at every single 
byte in memory. However, that also switches out BASIC—you 
have to be working in machine language to use all 64K in your 
computer. 

Blocks. The ROM, which you can't change, is busy 
carrying out all the business of the computer. But there are also 
areas of RAM that are involved with the operating system of 
the computer. For instance, there is an area called screen 
memory, where codes are kept to tell the VIC-II what to display 
in each location on the screen. Chapter 3 is all about how to 
use screen memory. What matters right now is the concept of 
blocks. 

A block of memory is a group of bytes that have a tempo¬ 
rary special meaning to the computer. Screen memory is a 
block of IK that maps the screen (and performs some other 
functions with sprites and bitmapped screens). When you turn 
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on the computer it is located starting at address 1024, contin¬ 
uing to address 2047. (Only the first 1000 bytes are used to 
map the screen.) However, by POKEing a certain code into a 
certain register, you can tell the VIC-II video chip to look for 
screen memory at another location. In effect, you have moved 
the block. You haven't moved the data in that block, but you 
have moved the place where the computer will look for that 
data. 

The character set is another block. You can tell the 
computer to look for that block in a different place, too. 

However, blocks have certain restrictions. You can't just 
put them anywhere. For instance, screen memory has to be 
located on an even IK boundary. That is, the starting address 
of screen memory has to be at an address that is evenly divi¬ 
sible by 1024. Obviously, the address 1024 is a valid address for 
the screen memory block. So is 0. So is 2048. And 3072, 4096, 
5120, and so on. 

The character set has to start on a 2K boundary. That 
means its starting address must be evenly divisible by 2048. 
Valid starting addresses include 0, 2048,4096, and 6144. 

The bitmap block must start on an even 8K boundary— 
valid addresses are 0, 8192, and 16384. 

Each sprite pattern block must start on a 64-byte 
boundary, so there are a lot more possibilities: 8192, 8256, 

8320, and 8384 are all legal. 

There are even blocks within blocks. For instance, the 
video memory block has to start on an even 16K boundary. 
There are only four such boundaries possible in the 64: 0, 

16384 (16K), 32768 (32K), and 49152 (48K). The video memory 
block must contain all of the blocks used by the VIC-II video 
chip. This is because the VIC-II, unlike the 6510, can handle 
only 14-bit addresses instead of 16-bit (two-byte) addresses. 

The two highest bits of a two-byte address mean nothing to the 
VIC-II. You can select which one of the four 16K blocks in the 
computer the VIC-II will use, but you can select only one at a 
time. 

Within that 16K video memory block, you must locate all 
the other blocks related to video. If you move the character set, 
you must put that block on an even 2K boundary within the 
video memory block. Screen memory must be in that block. If 
you use a bitmap, all 8K of it must be in the video memory 
block. 
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When you turn on your 64, the video memory block is 
located at 0. Screen memory is within that block, at 1024. 
(Character memory is not actually in the block, since the ROM 
is at 53248. But the operating system is really fooling itself into 
thinking that the character set is at 10240, which is within the 
block. Don't worry about why.) However, a lot of other things 
are there. The locations from 0 to 1023 are heavily used by the 
operating system—you can't play with them or you'll crash the 
computer. Your BASIC program starts at 2048, and starts eating 
up memory fast. If you wanted to put an 8K bitmap there, that 
block could get awfully crowded. So if it gets too crowded, you 
can always select a different block of memory to serve as the 
video memory block, and then use it almost exclusively for 
video. 

If this seems complicated, don't worry. It is complicated. 
But the more you use the 64, the more natural if 11 seem. You'll 
be doing some pretty fancy things with memory before you 
get very far into this book. And you'll be doing it almost pain¬ 
lessly. I always figure that if it works, it's fine with me— 
whether I understand why or not! 

Screen 

The 64 screen is 40 columns wide and 25 rows from top to 
bottom. That gives you exactly 1000 individually controllable 
locations where you can put characters. There is also a 
bitmapped mode, in which every dot is individually control¬ 
lable—all 64,000 of them! However, it is impossible to get any 
kind of speed on the bitmapped screen in BASIC, and since 
speed is vital to the arcade-style videogame, we won't be 
working with bitmapped screens in this book. 

Sprites 

The 64 allows eight sprites, which can be moved on the screen 
independent of screen memory. Each sprite takes its shape 
from a completely relocatable sprite shape block—which 
means you can change the sprite's shape instantly, with a 
single POKE, and its location almost as fast, with two or, 
sometimes, three POKEs. And when it moves across the back¬ 
ground, the rest of the display is unaffected. This makes game 
programming far easier and more powerful than is possible on 
machines without sprites. However, we'll still go over character 
and screen movement and animation. As you'll see, sprites 
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don't replace character and screen animation—they merely 
enhance it. 

Colors 

With a color TV or monitor, the 64 can produce 16 different 
colors. However, just as important as the number of possible 
colors is the number of colors you can have on the screen at the 
same time. In standard color mode, you can select different 
colors for every character position on the screen, and a 
different color for each of eight sprites. Also, the background 
and border colors are separately controlled. This means that 
thousands of color combinations are possible. 

In addition, sprites and screens can also be set up in multi¬ 
color mode, in which your program can display three different 
colors within the same character or sprite, in addition to the 
background color. You won't lack for dazzle in your games, if 
you want it! 

Programmable Characters 

You can redefine the shapes of characters if you want to, and 
sprites have to be defined in order to use them. By careful 
design and planning, you can get almost any shape you want 
to appear on the screen. 

Sound 

The 64's SID chip is one of its most notable features. You get 
the same kind of sound control available in music synthesizers, 
so that you can get a variety of sounds and sound effects, from 
explosions and lasers to a Bach fugue. Sounds are not really 
extras in a game. They serve several vital purposes, and the 64 
gives you plenty of sound resources to work with. 

Languages 

The 64 has two languages easily available, BASIC and machine 
language. 

Machine language consists of eight-digit binary codes that 
give instructions to the 6510 chip, which is the central 
processing unit (CPU), the real brain of the machine. The 
binary number 10000101 (decimal 133), when it's read as a 
machine language instruction, tells the CPU to store a certain 
value in a certain location—it works very much like a POKE. 

Since machine language is the CPU's native tongue, so to 
speak, the computer understands it very quickly. That's why 
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games written in machine language are very fast and run very 
smoothly. 

The trouble is that numbers like 10000101 aren't too easy 
for human beings to work with. Even when they're translated 
into hexadecimal (base 16) numbers, they don't carry much 
meaning. So machine language programmers usually write 
their programs with an assembler program, which uses a 
series of three-letter mnemonics which stand for the machine 
language commands. STA is the mnemonic for 10000101. The 
assembler program then translates symbols like STA into 
machine language numbers. It's that translated program that 
becomes the finished game. 

However, machine language programming is very tedious 
and very complex. Especially for beginners, BASIC is by far the 
easier language for programming. The commands are more 
like English, they're easier to remember, and it takes fewer 
commands to perform each operation. 

What you get in ease of programming, however, you pay 
for in running time. While your BASIC program runs, BASIC 
has to translate each command into machine language every 
single time it is used, and that takes up a lot of time. BASIC 
programs generally run slower. 

But BASIC is slow only by comparison with machine 
language. It is a very fast and powerful language in its own 
right, and the more you work with it, the better you'll do at 
writing fast, effective games in BASIC. 

Once you are familiar with programming in BASIC and 
have a good idea of what you can get the computer to do, it is 
much easier to progress to machine language. You'll probably 
begin by writing short machine language routines to include 
with your BASIC programs, so that you can get the speed of 
machine language in a few places where you really need it. In 
fact, there are some machine language routines later in this 
book. But actually teaching machine language is beyond the 
reach of this book. Once you learn how to make the 64 play 
good games, it's up to you to decide what language to use. 

The 6510 

The 64 has a brain made of silicon. The CPU (central 
processing unit) is the 6510, which is very similar to the 
famous 6502 microprocessor that serves as the brains of the 
Apple, Atari, and other microcomputers. However, Commo- 
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dore isn't just using the 6510—they own both the 6502 and the 
6510, which means they can offer the 64 at a lower price than if 
they had to buy the processor from somebody else. 

Program Translation 

Just because Apple, Atari, and Commodore all use the same 
CPU doesn't mean that you can run programs written for 
those machines on your 64. 

For one thing, Commodore BASIC is different in small but 
important ways from the BASIC used by the other machines. 
It's even different from the BASIC used by the VIC and the 
PET, though in fact it's often possible to take programs written 
for the VIC or PET and, by changing a few numbers, make it 
run on the 64. 

Why can't BASIC programs and programs for the 6502 run 
without changes on all the computers that use that language 
and that processor? Because the CPU doesn't control everything 
going on in the computer. Each computer has its own way of 
communicating with cassette recorders, disk drives, 
keyboards, and the screen. 

Each memory location can mean different things on 
different computers. When your computer stores a 4, for 
instance, at location 1 in RAM, that tells the computer to 
switch on the input/output (I/O) register. That same location on 
the Atari is used to store a timer value. You'll be using location 
53272 often with your 64, to tell the VIC-II chip where to find 
screen memory and character memory—but in the Atari, that 
same location is used to set one of the playfield colors. The 
equivalent playfield color on the 64 is set at location 53283. You 
can see why you can't just pick up a program from one 
computer and run it on another! 

The only way for a BASIC program to be portable (easy to 
translate for another computer) is to stick to generally accepted 
BASIC commands and never PEEK and POKE into specific 
memory locations. Unfortunately for game designers, 
computers usually differ the most in graphics and sound 
handling, which are at the heart of game programming. By the 
time you finish translating the game, you've practically created 
a whole new program. That's why few people bother to go 
through the translation process. It's often just as easy to start 
programming from scratch. 

Which is exactly what we're going to do in Chapter 2. 
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Game Design 

If you don't know where you're going, how will you know 
when you get there? 

It's important to plan your game before you start program¬ 
ming it. If you have a clear idea of how the finished game 
should play, you'll also have a pretty good idea of what needs 
to happen in your program. 

Some things are obvious. If you're going to use the joy¬ 
stick, you'll need to have a routine in your program that reads 
the joystick. If not, your program will have to read the 
keyboard to find out what the player wants to do. 

Some things, however, are more subtle. What will happen 
if your player-figure touches the sides of the screen? Will it 
explode? Appear on the opposite side? Bounce off? Lose 
points? Slow down? Speed up? Get larger? Get smaller? Disap¬ 
pear? Cause five new enemy creatures to appear? Cause the 
enemy creatures to move faster or come closer? 

There are hundreds of choices like that, and at some point 
you'll need to decide how your game program will handle 
them. If you make those choices beforehand, in the planning 
stage, then you can design a program that will do everything 
right—and will fit together the first time with a minimum of 
revision. 

The Design of Joust 

Let's begin by taking a closer look at one of the most popular 
arcade games. My own favorites are Defender and Stargate, but 
the same design principles apply to Donkey Kong, Ms. Pac-Man, 
or Joust. What is the computer actually doing during the game? 

Words 

Let's look at Joust in detail. When you put in a quarter, what 
happens? There are words on the screen, telling you what to 
do next. When you choose the one- or two-player option, there 
are more words. Remember, too, that there are instructions 
written on the outside of the game machine. All of these, 
combined, tell you how to operate the controls. 

This is documentation. If it is written down on paper or on 
the machine, it is printed documentation. If it appears as part of 
the video display during the game, it is internal documenta¬ 
tion. Whichever form it takes, though, good documentation is 
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vital to make a game fun to play. If there's nothing to help 
players understand what they're expected to do, or if the 
instructions are inaccurate or incomplete, playing becomes 
frustrating instead of fun. 

The Display 

Then the words disappear from the main display area. What is 
on the screen? The play field —the area where the game action 
will take place—consists of brown, rock-like islands. The 
bottom island rises from the base of the screen, with a lake of 
fire on either side. The other islands, though, float in midair. 
Several of them have white strips near the surface—these, the 
player will soon discover, are the platforms where new player- 
figures and new enemy knights will appear. 

Besides the playfield, there are several other things on the 
screen. The score is constantly displayed, for either one or two 
players, so you can keep track of how many points you have to 
earn before the next bonus knight. Also, there is a little box 
that displays how many knights you have left; this lets you see 
at a glance how many more turns you'll have. 

Movement and Animation 

Now the action begins. Your player-figure, a knight mounted 
on an ostrich-legged bird, appears on the left side of the 
bottom island. When you hold the joystick to the left, the bird 
turns and starts to walk; keep holding it, and it runs in that 
direction. Then if you push the joystick right and hold it, the 
bird screeches to a halt, pauses, turns right, and then starts 
walking. 

When you push the flap button, your mount's wings flap 
once. This makes your knight rise into the air a little, but 
almost at once he begins to sink. When you push the button 
repeatedly, however, the wings keep flapping and your knight 
rises higher and higher. 

The realistic flapping of the wings, the motion of the legs, 
and the way the legs and wings seem to cause the figure to 
move are animation. The overall pattern of movement, the rela¬ 
tionship between the player's joystick and button and the 
motion of figures on the screen, is player movement. The distinc¬ 
tion is important in programming—you will use one kind of 
routine to animate, or change the shape of the character, and 
another kind of routine to move, or change the location of the 
character. 
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Collisions 

Now other knights start appearing on the screen. They're 
computer-controlled characters that fly according to their own 
patterns. As you move your knight around the screen, he 
starts bumping into things—islands and other knights. 

If you collide with the bottom or edge of an island, or the 
top of the screen, you bounce off. If you were going fast when 
you hit, you go just as fast when you bounce off. Your bounce 
also takes into account the direction you were going when you 
collided—if you were going upward to the right when you hit 
the top, you go downward to the right after the bounce. 

If you fall down onto the surface of an island, your mount 
extends its legs and starts to walk—regardless of how fast or 
how far you fell. Running into islands or the ceiling will never 
hurt you. 

One oddity is that if you glide into contact with the 
surface of an island along an almost exactly horizontal path, 
the legs of your mount won't come down. You'll just bounce 
along without walking, belly-flopping your way across the 
screen. If you are doing that when you reach the gap between 
the two close-together islands on the right side of the screen, 
you'll be squished down through the gap and ejected on the 
lower side in an instant, not a bit the worse for wear—quite a 
remarkable feat! 

When you collide with another knight, one of three things 
can happen. First, if your knight and the other one are on 
almost exactly the same level, you will simply rebound from 
each other with a loud noise. 

If your knight is lower on the screen than the other knight, 
your knight will disappear and a new one will come to life at 
one of the creation platforms. 

If your knight is higher, it is the enemy that disappears. In 
his place, a large egg flies away from the mount, as the mount 
flaps quickly off the screen. 

Your knight has a certain amount of time in which to go 
collide with the egg before a new enemy knight hatches out of 
the egg, and his mount flies out to join him. The egg trembles 
a bit before it hatches, and the enemy's mount does take 
awhile to arrive and get in place, so there's plenty of warning— 
but if the new enemy knight gets mounted, he is more formi¬ 
dable than the one before. And the sooner you get the egg, the 
more points you get. 
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Intelligent Enemies 

The enemy knights start out relatively slow and stupid, but 
even at the start they tend to notice where your knight is and 
home in on him. Also, the blue enemy knights are faster and 
harder to beat. They have a habit of maneuvering right under 
the edge of an island, or right along the top of the screen, so 
that it's hard for you to get above them. They also use the 
island and screen top for rebounding—they fly quickly 
upward and then rebound downward so they come at you 
faster than you expect and from a direction you weren't 
prepared for. If you imitate their strategies, you'll do better 
against them. 

Other Hazards 

From the third level onward, the sea of lava at the bottom of 
the screen is uncovered. If your knight falls in, he is 
consumed. If he comes too close while moving too slowly, the 
lava troll reaches up and seizes him, pulling him downward 
into the lava. The hand sometimes seizes the other knights, 
but, after holding them awhile, almost always lets them go. 
While they are being held, however, they are vulnerable to 
you. 

Creation 

What happens after one of your knights has disappeared? One 
of the platforms turns yellow, and a new knight rises into view. 
Unlike the enemy knights, yours does not immediately fly 
away. If you don't move, you have a few seconds in which 
your knight cannot be harmed, to wait for enemy knights to 
leave you a clear section of sky in which to take off. 

You'll also notice that usually your new knights arise from 
a platform in the area where the fewest enemy knights are 
flying. Likewise, when enemy knights are being created, they 
will not usually appear at a platform if your knight is hovering 
too close. 

Increasing Difficulty 

The longer you play, the harder it gets. The most noticeable 
change is that at higher levels there are more enemy knights. 
Also, the knights move faster and make more erratic, unpre¬ 
dictable movements. They also get smarter and evade you better. 

Also, if you take too long at any one level, a pterodactyl 
appears (though I prefer to think of it as a phoenix). The ptero¬ 
dactyl flies back and forth across the screen and doesn't home 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


24 



Game Design 


r*) 

n 

n 

n 

n 

n 

o 

n 

n 

n 

n 

n 

n 

n 

o 

n 

r*\ 

n 

o, 


in on you very accurately, but if you're careless it will get you— 
and then it doesn't help you to be above it, for the pterodactyl 
is "indestructible." 

Or is it? The message on the screen said, "Beware the 
indestructible (?) pterodactyl." That question mark leaves some 
doubt, and you eventually learn that if you meet the ptero¬ 
dactyl head-on, with your knight's lance exactly at the level of 
the monster's mouth, you can kill it. At later stages, the ptero¬ 
dactyl comes on the screen almost at once, and homes in on 
you faster and more accurately. 

At higher levels, the platforms begin to disappear, which 
makes the game more of a free-for-all, with fewer places to 
hide, until finally you have no more hiding places at all. Then 
the islands come on all over again, but by then everything is 
moving so fast that they don't make it much easier. 

Increasing Interest 

If a game stays the same from beginning to end, except for 
getting harder, it soon becomes dull. Joust adds some new 
elements to increase interest. There is a Survival Wave. If you 
can keep the same knight alive throughout that wave, you get 
a substantial bonus. If you are playing with someone else, you 
have waves of competitive play (Gladiator Wave), in which you 
get bonuses for hitting each other, and cooperative play 
(Survival Wave), where the bonus comes for not hitting each 
other. 

There is also an Egg Wave, in which, instead of enemy 
knights, all their eggs are strewn on the platforms. It is diffi¬ 
cult, but not impossible, to get all the eggs before they hatch. If 
the enemy knights hatch, they are significantly better fighters 
than they were in the round before. 

The pterodactyl, the lava troll, and the disappearing 
islands also serve to change the game and add interest. 

Incentives 

To encourage you to play again, improving each time. Joust 
gives you a score for your achievements in the game. Each egg 
you get is worth 250 points more than the last one, starting 
with 250 points and peaking at a maximum of 1000 points per 
egg. You also get a bonus if you get the egg quickly. 

If your knight is destroyed and a new one appears, the 
scoring starts over at 250. Likewise, the egg scoring starts over 
with each new wave. 
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You get 50 points for getting killed. I think this was 
inserted in the game so novices wouldn't get depressed at a 
score of 0 when the game ends. 

You get 1000 points for killing a pterodactyl. 

Every 20,000 points, you get a bonus knight. This means 
that the better you play, the more chances you have to play 
even longer. 

If your score is higher than the lowest score on the vanity 
board (list of best players), you get to enter your initials at the end 
of the game. 

Sounds 

Each event has its own sound. A collision in which you win 
has a different sound from a collision in which you lose. 
Bumping into different surfaces makes different sounds. There 
are sounds for knights arising from platforms, for eggs 
hatching and birds coming in, for the pterodactyl's arrival, and 
for collisions with eggs. There are different sounds for walking 
and for flying. There is a sound to tell you when you get a 
bonus knight. 

Even while you're concentrating on your own knight, 
hying to keep him alive, the sounds tell you a lot about what's 
going on elsewhere on the screen. And as you scan the rest of 
the screen, the wing-flapping sound helps you keep track of 
your own knight's rhythm. You may not be conscious of the 
sound, but it's as much a part of the game as the video. 

Story 

Everything we've analyzed so far is detail, the bits and pieces 
that come together to make up the whole effect. But much of 
the fun in Joust is the story. You get to be a knight on a fantastic 
steed, flying rapidly among floating islands, jousting with 
dangerous opponents and evading or attacking mythical 
monsters. It's a fascinating world, a fantasty tale that you are 
acting out as you play. Whether you get a hundred thousand 
points or a tenth of that, you still get the pleasure of doing 
something with the computer that you could never do in real 
life. It is a pleasure just to visit the world of Joust, and that sort 
of pleasure can also be part of your game. 

Complex Programming for Simple Games 

When you analyze a game, the way we have just analyzed 
Joust, you can see that the simple, smooth play that you enjoy 
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so much is actually the result of careful, meticulous planning 
and programming. Every single effect, every single rule of the 
game was planned and programmed. What happens if A 
collides with B, or with C, or with D? How does the game get 
harder as it goes along? All these things go into making a game 
that plays well the first time—and keeps on being fun the 
hundredth time you play. 

Your first game doesn't have to be a Joust. It takes machine 
language, for one thing, to keep so many different figures 
moving around on the screen at those speeds (though we will 
see how to move and animate many characters at once). But 
even in fairly simple, slow-moving games, you'll need to take 
into account every one of these things in order to create a fun, 
interesting game. 

In fact, it wouldn't be a bad idea to go to an arcade and 
study some of the games. Stand behind a game wizard while he 
plays and write down the things that happen on the screen. 
How do the ghosts respond to the player in Pac-Man ? How 
often do the girders bounce out during the elevator sequence 
in Donkey Kong ? How are pickle movements different from 
frankfurter movements in Burger Time ? 

Once you become aware of how game creators have 
designed the games in the arcades, you'll be much better 
prepared to plan the same kinds of effects in your own games. 

The Story of Your Game 

Donkey Kong is the story of Mario trying to save his girlfriend 
from the gorilla. In Missile Command you are trying to save 
cities from an enemy attack. Defender pits you against alien 
invaders. In Robotron, you are trying to rescue little human 
figures from robot attackers. In Asteroids, you're in space, 
threading your way among asteroids while fighting off 
enemies. The stories range from almost abstract games, like 
Qix and Tempest, to fully developed stories like Venture and 
Donkey Kong. 

Don't underestimate the importance of having a good 
story. For one thing, if your story is too close to the story of an 
existing game, you won't ever be able to release your game 
commercially—you'd get sued! But more important than just 
being different is the fact that a good story will give you ideas 
for game events that will make it more fun to play. 

Let's say you wanted to design a game that has the same 
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movement pattern as Centipede —a chain of linked segments 
moving back and forth across the screen, getting closer and 
closer to the player at the bottom. Naturally you can't just 
duplicate Centipede —there's no future in plagiarism. But what 
other story could explain that movement? 

Your player could be a roller coaster repairman, and the 
moving segments could be a roller coaster. Of course, shooting 
roller coaster cars isn't exactly sociable behavior, so you may 
want to change the play action by having your player-figure 
patch holes in the roller coaster track or remove obstacles that 
are being put in the way by a terrorist. A roller coaster doesn't 
just get to the bottom of the screen and disappear, either— 
unlike Centipede, your game might have the roller coaster climb 
slowly to the top again, during which your player-figure has 
time to patch some holes. 

You see how the game changes as you develop the story. 
And that can only improve your game. Even if an arcade game 
was your starting point, there's no reason why your game 
shouldn't be better than its inspiration. Look how much Galax- 
ians improved on Space Invaders, only to have Firebird and 
Galaga improve even more. 

Nowhere is this clearer than in Tron. What is the cone 
sequence except good old Breakout? Here, though, it has a 
story. With a character trying to get through the blocks, it takes 
on a whole new meaning. Tron also includes a traditional tank 
shoot-out, and the light cycles sequence is nothing but a varia¬ 
tion on the old Atari VCS cartridge Surround. Even the spiders 
aren't really new. But the story has changed and reshaped 
them, and the result is a game that is new. 

Once you start thinking of new stories for games, you'll 
find it's hard to stop. You can fill up notebooks full of game 
ideas and plans in a very short time. And eventually there'll be 
one that you like so much that you can't let it go. You keep 
thinking about it, refining it, coming up with new variations. 
That's the one that you should program—the game you care 
about is the one that you'll have the patience and insight to 
program well. 

Display: What Does the Player See? 

On one level, all that goes on in a videogame is that a bunch of 
dots on the video screen are lighting up in various colors, and 
sounds are coming from a speaker. 
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But the dots, or pixels (short for "picture cells"), aren't just 
lighting up at random. They form patterns that the human 
brain recognizes as meaningful. 

If the pixels form a yellow circle that has a wedge cut out 
of it, we recognize Pac-Man. 

Mix different colored dots in set patterns, and we recog¬ 
nize the hard-working hero Mario from Donkey Kong, or the 
magnificent flying mounts from Joust. 

Characters 

On your 64, a whole set of shapes already exists. Every char¬ 
acter on the screen is a pattern of pixels that you recognize as 
letters or numbers or other symbols. None of them looks like a 
spaceship or a gorilla, but that's all right—you can design your 
own characters to replace some or all of the regular characters. 
When your program PRINTS the letter A, for instance, what 
appears on the screen will be the pattern that you designed. To 
the computer, the letter A is just the screen code 1. It will treat 
the character the same no matter what shape you give it. Or 
you can combine several new characters to make part of a 
larger picture on the screen. 

Animation 

The pictures are just pictures until they move. It is when the 
wings of your steed start to flap that Joust comes alive. And 
half the fun of Donkey Kong Jr. is making Junior climb up or 
slide down the ropes and chains. 

It is possible to make your animation as smooth and real¬ 
istic as the best cartoon movie. But you also face the same 
problems that a cartoon animator faces. Each slight movement 
of a character requires a new picture of that character. Each 
direction a character faces, each action the character performs, 
requires another drawing. And that takes memory. You have a 
lot of memory on the 64—but animation eats up memory fast. 

So game designers compromise. They simplify the anima¬ 
tion. The gorilla in Donkey Kong stamps his feet and 
grimaces—but that requires only two drawings per leg 
(stamping and not stamping), two drawings for the face 
(grimacing and not grimacing), and a single drawing for the 
body. When Kong is rolling barrels,there are new drawings to 
show him doing that. But since he only rolls barrels to one 
side, the programmer had to create only the shape for that 
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side. And there's no attempt to make the gorilla walk realisti¬ 
cally—he just bounces, without moving his legs. It's far from a 
classic Disney animated film, but it's good enough to make a 
great game. 

Remember that anything on the playfield that changes 
during a game requires the same sort of memory considera¬ 
tions. If a trap door opens or a cup of milk empties, you'll need 
new characters or sprite definitions for every new shape you 
show. 


Player Movement 


When players press a key or move a joystick, something needs 
to happen on the screen. And here is where the "feel" of a 
game comes in. Pushing on the joystick causes a movement on 
the screen only when your game program checks the joystick 
and makes changes according to what it finds there. If your 
program checks the joystick only once every second, the 
player-figure can't move any more often than once every 
second. And that's going to feel awfully sluggish to players. 

As long as you're programming in BASIC, you'll want to 
design your program so that it checks the joystick and allows 
movement as often as possible. (That isn't so important in 
machine language games, however—everything happens so 
fast that you often need to insert delays or timer routines to 
slow down the action!) 

So when you're planning your program, you'll probably 
build it around a central loop, a series of commands that 
repeat over and over. At the heart of that loop will be a 
joystick-reading routine. If the player isn't pushing the stick, 
then you can skip on to other things. But if some action is 
requested, your program needs to be able to perform it as 
quickly as possible after the player asks for it. 

This means that you want to have as few things 
happening on the main loop as possible. If the computer- 
controlled enemy-figures move as often as the player, then 
they will all have to be moved every time you go through that 
loop. And in BASIC, that will make your program crawl. 

The solution is to compromise. Either have fewer 
computer-controlled opponents, have them move less often, or 
give them simple, regular actions. The back-and-forth move¬ 
ment of the aliens in Space Invaders is a good example of this. 
They don't aim when they shoot; they don't have to figure out 
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a path when they move. They just do the same thing, over and 
over. Nothing could be simpler—or faster. We'll go through 
several techniques for doing this in the chapter on animation. 

And as you design your program, move as much of the 
program as possible off the main loop. Using IF/THEN GOSUB 
or ON/GOSUB statements, you can have the program decide 
during the main loop whether a particular routine is necessary. 
If it is, the program can jump to the subroutine and then come 
back; if it isn't, the program can ignore it and go on, without 
wasting much time. 

Eventually you may even start looking for books on 
machine language, so that your game programs can perform 
some of these functions much faster than BASIC allows. There 
are some machine language routines in this book, too, that will 
help you achieve real speed. Still, don't despair if your first 
version of a program runs more slowly than you want. You'll 
soon learn tricks to let you streamline your program and make 
it go faster. As long as you don't expect the impossible, you'll 
be able to get your game to play smoothly and well. 

Relationships on the Screen 

The screen display may be dazzling, but the computer can't see 
it. It can't just glance and see whether a player-figure has 
bumped into a wall, or moved off the screen, or collided with 
an opponent. 

lire computer has to remember where everything is, and 
then check to see if there has been a collision. In our roller 
coaster variation on Centipede, for instance, the computer won't 
be able to see that the roller coaster is passing over a gap in its 
track. What it will do, though, is remember that there is a gap 
in the track at column X, row Y. That information can be stored 
in an array variable, GAE GAP(3,0) gives the column number 
of the third gap; GAP(3,1) gives the row number. Each time the 
roller coaster moves, then, the program checks all the "gap 
location" variables, and if the roller coaster location is right 
above a gap location, the program can make the roller coaster 
fall through the gap. 

There are other methods of checking for collisions, too— 
PEEKing into screen memory and checldng the sprite collision 
register. You have to program that sort of thing into your 
game, so that the computer can do it over and over again. It 
sounds tedious, but the computer doesn't mind. In fact, that's 
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one of the greatest things about videogames. Imagine playing 
Joust on a game board, having to calculate all the tiny move¬ 
ments and collisions yourself. The game would be slow—it 
wouldn't feel like you were flying. But the computer does all the 
drudgery of figuring out where you should be on the screen 
and whether you've bumped into anything, so that you can 
simply fly. 

Intelligent Opponents 

It's one thing to have the aliens in Space Invaders move mind¬ 
lessly back and forth across the screen, or a centipede mind¬ 
lessly dropping downward according to a set of rules. It's 
something else again to have the computer operate seemingly 
intelligent opponents that maneuver to try to get the best of 
you. 

In a primitive form, like Berserk, it's a simple homing 
instinct—the robots tend to move up if your player-figure 
moves up. 

In Joust, however, the programming is much more 
complex. The opponents have a general homing pattern—but 
they also have built-in strategy. If you're near, they'll maneuver 
to gain altitude on you; they'll hover under the lip of a floating 
island; they'll fly upward and rebound down on you. The algo¬ 
rithms to control that kind of behavior are pretty complex, 
both as mathematics and as programming—it verges on artifi¬ 
cial intelligence. 

But don't worry. Most arcade games aren't nearly so 
complex. In Donkey Kong, for instance, the flames do have a 
tendency to home in on Mario, but they also follow certain 
basic patterns. When you learn them, you realize that the 
flames are only slightly more complicated than the robots in 
Berserk. 

There are three levels of intelligence in computer- 
controlled figures: the mindless pattern, the homing pattern, 
and artificial intelligence. 

Mindless Patterns 

Here, the figures move in a set pattern, regardless of what the 
player does. Examples are the aliens in Space Invaders and the 
birds in Donkey Kong Jr. Once you see the pattern, you can plan 
on it and work around it. However, the computer usually 
makes up for its lack of subtlety by having lots of opponent- 
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figures for you to cope with. One alien moving back and forth 
across the screen would be a picnic; a few dozen, and it's 
suddenly a challenge. 

The Homing Pattern 

In this system, the computer-controlled figures change their 
pattern according to where the player-figure is. The response is 
pretty simple, as in Berserk or Pac-Man. The monkeys in 
Kangaroo seem more intelligent, but they are pretty much the 
same. They move up and down the tree according to one of 
three set paths. They respond to the player's position by stop¬ 
ping on the same level as the kangaroo. Then they walk left a 
certain distance, depending on the left-to-right position of the 
kangaroo, and throw fruit. Programming this behavior pattern 
requires some careful planning and attention to detail, but no 
math more complicated than simple arithmetic. 

Artificial Intelligence 

With this kind of opponent, the computer anticipates what you 
will do and plans strategies accordingly. Sports simulations 
often require this, as the computer lines up a football team in a 
pattern that it thinks will cope with whatever you have 
planned. The complex knight movements in Joust require some 
anticipation. But games that rely heavily on artificial intelli¬ 
gence algorithms are relatively rare. Most games rely on mind¬ 
less or homing patterns, which are much easier to program 
and still make excellent game opponents. 

Give the Poor Human a Break 

One thing to keep in mind, though, is that even in BASIC the 
computer is usually faster than the human player's reflexes. In 
a homing pattern, the computer can always recognize, 
instantly, any change in the player-figure's movement and 
respond without any delay. A human being, however, takes a 
moment to recognize the change and respond to it. It's an easy 
matter to program an opponent to home in on the player and 
destroy him every single time. But that wouldn't be much fun 
to play. 

So you need to build weaknesses into your computer- 
controlled characters. Make them slow or dumb—or both. 

They can get smarter as the game goes on, but no one enjoys 
playing a game of sudden death, in which there's no chance of 
survival at all. 
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Other Complications 

Besides the computer-controlled opponents, you'll probably 
want to have other hazards. Most games have them. 

In Pac-Man, for instance, the maze itself is a complication 
because players have to keep turning and dodging, and can 
get trapped in long corridors with ghosts at both ends. 

In Joust, the lake of fire and the demon hand make the 
game a bit trickier, while the islands make it impossible to have 
many long, smooth flights. The eggs are one more thing to 
worry about while you try to battle the other knights. 

Donkey Kong makes you cope with ladders and elevators 
and gaps between girders. Kangaroo makes you climb or leap 
from level to level. Rally-X not only has a maze, but also puts 
random rocks in the road and keeps you worrying about 
running out of gas. 

The basic principle of complication is to make sure the 
player has to think of several things at once. Not only do you 
have to dodge the pickles, hot dogs, and fried eggs in Burger 
Time, but also you have to make hamburgers and Egg 
McMuffins. The more things going on at once, the busier the 
player has to be. 

But, again, don't make it impossible. The complications 
should come at a rate that a human being can cope with. It 
isn't fun to find out that a computer is quicker than you are. 
What's fun is feeling like you're a match for the computer, at 
least for a while. 

Entrances and Exits 

Figures appear or disappear often during a game. But a simple 
vanishing and reappearing act isn't very satisfying to the 
player. Besides, things are often happening so fast that players 
need a bigger effect to help them know what's going on. 

For instance, when you eat a ghost in Pac-Man, it doesn't 
jusjt vanish and then reappear somewhere else. We can see the 
eyes of the now-invisible ghost as it rushes from the site of its 
untimely demise to the box in the middle of the screen. There, the 
ghost gets back its shape — but it still wanders around inside the 
box for a moment or two before reemerging. This gives players 
some time without that ghost in the way, and helps them keep 
track of when it will come out again. 

Even more important than when an opponent disappears 
and returns, however, is when the player's own player-figure is 
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wiped out. It can range from the big explosion in Asteroids and 
other shoot-outs to Mario's head-over-heels tumble in Donkey 
Kong, but something needs to happen to let players know that 
they've been beaten, at least in this round. 

However, as a matter of psychology, it helps if the player- 
figure's doom isn't too unpleasant. Abusive comments, for 
instance, don't make anybody feel like playing the game again. 
That's why so many arcade games have a "cute" ending— 
funny sounds and an animated sequence that doesn't suggest 
death or terrible pain. 

Remember, if you've done well at creating a good player- 
figure and an enthralling game, players will be taking events 
in the game pretty personally. Your computer should be a good 
sport about winning, and not gloat. 

IVfaintaining Interest 

One of the elements in games like Monopoly or Poker or Chess or 
Go that has made them classics is that they remain a challenge, 
no matter how often you play. You may not come up with a 
Monopoly your first time, but you certainly don't want to create 
a game that people will play once and then discard. So what is 
it about a game that brings people back to play again and 
again? 

Unpredictability 

No game is completely unpredictable—the rules are designed, 
in fact, so that it will play pretty much the same every time. 
What good would baseball be if you never knew what order to 
run the bases from one game to the next, or where the bases 
would be, or the size of the ball? Yet every baseball game is 
different because there are, within the framework of the rules, 
some things that can never be predicted. The speed and spin 
of the pitch, the force and direction of the bat, the angle and 
speed of the ball off the bat, the arrangement of runners on the 
bases and players in the outfield and the infield—these are 
never twice the same, even though the rules never vary. 

You'll notice that all those variables depend on what 
human beings do. The trouble with computer games is that the 
computer is absolutely predictable—it will always obey your 
program commands. The computer has only two ways of being 
unpredictable. One is to generate a random number and use it 
in your program. The other is to let the player's input change 
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the way the program acts. 

Space Invaders has very little unpredictability. The aliens 
will tend to shoot more where the player is, and if you wipe 
out columns of aliens at the edges, it will take longer for 
them to reach the edge and drop down to the next level. That's 
about it. 

Missile Command uses the random method of being unpre¬ 
dictable. While the enemy always aims at the same targets, the 
missiles never start at the same place and in the same pattern 
at the top of the screen. 

Dig-Dug depends on the player for its unpredictability. 

The player, in effect, draws the playfield by carving a maze 
through the rock. Even though the placement of the creatures 
at the beginning of each level is always the same, and their 
movement starting times never vary, the levels can be as 
different as the player wants to make them, because every¬ 
thing the creatures do depends on where the player has cut the 
maze and where the player happens to be. 

Increasing Difficulty 

Another way of keeping interest high is to make the game 
increasingly difficult. If you're a tennis player, you know that 
it's most fun to play with an opponent who's just a little better 
than you. And most arcade games use the same principle—no 
matter how good you are, at some point the computer is going 
to be just a little better. 

How do you make a game harder from level to level? 
Speed, accuracy, and complication are the keys. 

Speed. At low levels, opponents move slowly and are 
easy to catch or evade. Just by changing the timing, however, 
opponents can be made to move faster, bit by bit, until they zip 
around the screen. Players can also be allowed to move faster, 
so that they have to make decisions more quickly. And if oppo¬ 
nents throw rocks or shoot bullets, those projectiles can move 
faster so that it's harder to dodge. 

Accuracy. At low levels, opponents can be programmed to 
miss. In Asteroids, for instance, the big enemy ship fires some¬ 
where in the space around you—you practically have to try to 
get hit for it to harm you. But the small ship, which comes on 
later, fires much more accurately, predicting your future course 
so that it's much harder for you to dodge in time. 

Complication. Keeping track of four enemy knights is 
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hard enough at the beginning of Joust, when you're just 
starting out. But in later levels, you have dozens to worry 
about, and the eggs and pterodactyls, too. 

Most games use a combination of these three, gradually 
increasing the speed, accuracy, and complications from level to 
level. It's easy to do if you design your programs with some 
key variables, so that you only have to change their values at 
the beginning of a level to have the game get faster and harder 
to play. 

There's a problem, though, with having games get increas¬ 
ingly more difficult as you go from level to level. You have to 
get through a lot of boring stuff that's easy to do before you 
can get to the part of the game that's challenging. 

The solution is to let players choose their starting levels at 
the beginning of the game. However, this might cause their 
total score to drop, and those who care about high scores will 
be frustrated. The designers of Tempest found one solution. If 
you decide to start at a higher level, you get a progressively 
larger bonus when you successfully complete that starting 
level. It's impossible for someone who starts at level 1 to get as 
high a score as someone who starts at level 11, even if both end 
up at level 15, because the bonus for starting at a high level is 
so large. In the arcade, this also serves the purpose of encour¬ 
aging players to play harder, shorter games, so the quarters 
flow faster, but even at home it's nice not to be penalized for 
starting out at a high level. 

New Scenery 

One thing that keeps players going with many games is the 
desire to find out what awaits them at the next level. The 
changes can be major ones, like the new screens introduced at 
each new level of Donkey Kong, or they can be minor, like the 
succession of bonus vegetables in Dig-Dug. In Galaga, it's fun to 
see what new creatures will appear, and in what pattern they'll 
fly, in each bonus round. Later versions of Pac-Man vary the 
mazes; Tempest has new and increasingly complex geometric 
patterns at each level; Venture has new rooms, new treasures, 
and new monster guardians. 

Even working in limited memory, it's possible to have 
small surprises hidden away for the player who makes it to 
higher and higher levels. It turns videogaming into explora¬ 
tion, and that adds a lot to the fun. 
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Incentives 


Beating the machine and finding out what happens next are 
certainly incentives to keep playing longer, better, and more 
often. But you need to make sure that your game encourages 
players to acomplish the tasks the game sets out for them. 

Negative incentives are usually the first things people 
think of. If you don't shoot the rockets out of the sky in Missile 
Command, your cities will be blown up and the game will end. 
If you don't punch out the monkeys and keep climbing in 
Kangaroo, you'll be decked by a piece of fruit or a gorilla. 

There need to be positive incentives, too, to keep the 
player doing the right things. In Monopoly, for instance, you 
are encouraged to buy properties early in the game because, if 
you do, you get more rent later. You are encouraged to try for 
monopolies because your rent is doubled and you can make 
property improvements. You are discouraged from mortgaging 
property because you get no rent. That same kind of reward 
structure will help the player of your game to do the things 
your game requires. 


Scoring 

Scoring is the easiest way to let players know how they are 
doing. Each time players accomplish a goal, there should be a 
reward in points. It doesn't matter if the players know exactly 
how the points are awarded, but they should be given consis¬ 
tently, and harder accomplishments should be rewarded with 
more points. 

In Pac-Man, for instance, you get points for each dot you 
eat. You also get points for each ghost you collide with after 
eating a power pill. And each ghost you collide with on the 
same power pill is worth progressively more points. The bonus 
for eating fruit and keys increases with each screen, too, 
rewarding you more for surviving farther and farther into the 
game. 

But how many points? That's a tricky question, and it's 
really up to you. The general rule is that easy things get few 
points and hard things get lots of points. But no one accom¬ 
plishment should get so many points that it completely over¬ 
balances the game. 

Point inflation. Also, you should keep "point inflation" in 
mind. In Asteroids, you can't get less than ten points for 
anything. The score always ends with zero. You could get rid 
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of that last zero, and it wouldn't affect anything, except that 
1000 points would be only 100 points, and so on. Your score 
would be just as accurate. 

So why does Asteroids multiply your "real" score by ten? 
Because it feels a lot better to get 10,000 points than to get 1,000 
points! The game inflates your score so that it feels like you've 
accomplished more. After Asteroids, a game like Super Breakout, 
which rarely lets you get above 4,000 points, feels rather tame, 
in part because the score is lower. 

But point inflation has limits. It's hard for players to visu¬ 
alize a billion points, so if scores get into the billions and tril¬ 
lions, and most of the score is meaningless zeros, players will 
tend to drop off the zeros anyway, and talk about getting 15 or 
30 instead of 15,000,000,000 or 30,000,000,000. 

Vanity board. Part of the fun of scoring is to see if you can 
get on the vanity board. Vanity boards began as a record of the 
high score. Gradually, games began including the top three or 
top five or top ten scores, and allowed the players to enter their 
initials or even their names. Players quickly learned to use 
these for graffiti, getting exactly the right scores so they could 
spell out messages of varying degrees of cleverness. However, 
the vanity board was erased when the machine was turned off. 
Now games often have methods of storing part or all of a 
vanity board even when the power is off. Most such games 
have split vanity boards. Half the high scores are permanent 
and do not disappear; the other half revert to zero when the 
game is off. 

There are other variations, too. Some machines have 
default values when they power up, so that your score won't 
show on the vanity board until you get a minimum of, say, 
10,000 points. Others come up with phony initials and plau¬ 
sible but low default scores, so that it looks like other players 
have left their initials and scores even when no one has played 
the machine that day. 

It's often a good idea, if your game has scoring at all, to 
have a high score display at the end of a game, so that players 
can keep track of the top score earned since the program 
started running. You can easily keep the top three or five 
scores, with initials, or the top score for each player. And it's 
not hard to include a permanent vanity board as part of the 
program, which is automatically saved each time the game 
ends. 
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Bonus Turns 

Games like Pac-Man and Donkey Kong never allow more than 
one bonus turn, but Dig-Dug, Asteroids, Galaxians, Joust, and 
others reward players with bonus turns at regular intervals. 
Limiting the number of bonus turns helps the arcade owners 
because it means people can't play as long on a single 
quarter—but people playing your game at home on their 64 
don't need that restriction. 

Of course, it can be carried to extremes, too. Endless 
games of Asteroids that end up with scores in the millions are 
the result of poor planning. The program should have been 
designed so that at the higher levels a dozen little enemy ships 
come on the screen at once. Then the game would have stayed 
challenging. 

Story Rewards 

There are rewards built into the story of the game. In Donkey 
Kong, Mario saves the girl; in Donkey Kong Jr., Junior saves 
Papa. In Kangaroo, the doe saves her joey. In these games, 
you'll notice that the objective is often achieved—the girl. 
Papa, and the joey are saved several times during the game. 

In games like Defender, Missile Command, and Asteroids, the 
win condition can never be achieved—there are always new 
waves of enemies, and never any time when the computer 
says, "Congratulations. You saved the earth." That makes 
these games more frustrating than the games that allow the 
main objective of the story to be achieved. 


Sound isn't just decoration. It isn't just music to attract you to 
the game when you hear it out on the street—though it does 
that very well. 

Feedback 

Have you ever played an arcade game with the sound turned 
off? Arcade owners sometimes get so tired of the sounds from 
popular games that they turn the sound off entirely. When you 
play a silent machine for the first time, it throws your timing 
off completely. You rarely realize how much you depend on 
sound until it's gone. 

Whenever players do something, your program should 
provide a sound that lets them know that the computer got the 
message. The walking and jumping sounds in Donkey Kong are 
a real help—sometimes it takes a moment to realize that Mario 
40 
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isn't doing what you told him, especially if you're glancing 
elsewhere on the screen at the time, and the sound can make a 
real difference in your timing. 

News 

Sounds also tell you about things happening elsewhere on the 
screen. An explosion, a collision, an alarm going off, a sound 
for having won a bonus round, a tune that tells you that the 
enemy is vulnerable or to warn you that a new enemy is on the 
screen—all these things help players keep track of what's 
going on while they're concentrating on the player-figure. 

Mood 

And don't underestimate the importance of music for simply 
setting the mood for the game. Background music is some¬ 
thing chess never had. Videogame makers learned it from the 
movies. 

Mysterious music can increase the suspense in a horror 
movie—and in a videogame. Busy, tense music makes a chase 
scene more exciting in an action film—and in a videogame. 

And bright, cheerful music can be part of the reward for success. 

However, unless you know how to put music into inter¬ 
rupts—which can only be done in machine language—you'll 
have to keep in mind that every use of sound slows down the 
game. Most of the time, you'll probably use sound only where 
it's really necessary—to give information to the player. 

Documentation 

This is often one of the last things you'll add to a game 
program, but it's the first thing a player will see. By the time 
you finish programming, you know your game intimately. You 
know everything that will happen at every level, and you are 
probably already pretty good at beating the game. But other 
players won't know anything at all, and you need to tell them 
enough that they can have fun. If touching a balloon will blow 
them up, they should know that; if they have to pick up a pot 
of gold in order to win, they should certainly be informed. 

Your documentation, whether written on paper or on the 
screen, should tell the player several things: 

1. How to use the controllers. What does the joystick do in 
this game? What does the fire button do? What will 
pushing the function keys do (if anything)? Players 
must know everything that will happen when they 
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push keys or buttons or move sticks or paddles. 

2. Game options. Beginning or advanced game? One or two 
players? Nighttime or daytime screen? Shields, hyper¬ 
space, flip-over, or no defense? All the possible options 
need to be explained. 

3. Game objectives. What are players supposed to accom¬ 
plish? How can they win? What gives them points? 
What gives them a bonus? 

4. Game hazards. What is going to attack the players? What 
dangers can they run into? Anything that can cause 
players to lose a player-figure or lose the game should 
be mentioned. If players are trying to land a spaceship, 
they should know that touching the walls of the landing 
slip, landing too fast, and not having permission from 
Landing Control can all cause the ship to crash. 

5. Game rules. What can and cannot be done? Computer 
games tend to be self-enforcing—if you try to do some¬ 
thing illegal, the computer just won't do it. So the game 
rules documentation usually turns into a tips or hints 
section, where you let players know the way something 
works. If you have a football player trying to catch a 
pass, it helps to tell players what conditions have to be 
met for the pass to be caught. 

Start Where You Are 

Now you have your brilliant, fantastic videogame designed, 
and you discover that there isn't enough computer memory in 
the world, let alone in your 64, to actually carry it out. Or you 
find out that some of the things you want to do would make 
the game run too slowly. Or you discover that some of the 
things you want to do are still out of your reach as a 
programmer. 

That happens to all game designers, no matter how good 
they are. As you do the actual programming, you'll find out 
some things in your plan that just can't work the way you 
meant them to. That's fine. Every videogame you've ever 
played is the result of many compromises between the ideal 
game and the limitations of the machine and the programmer. 
Also, new ideas will occur to you while you're programming. 
The plan you make before the programming begins is to help 
you, not to limit you—to point out needs, not to eliminate 
alternatives. Once the creativity starts flowing, it can only help 
the game. 
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Setting Up Your 
Screen 


The video display in your game is very important, because that 
is where players have to "live" during the time they are 
playing your game. If it is comfortable, showing the players all 
the information they need to have, with attractive design and 
interesting graphics, they'll be glad to come back to that world 
again and again. If it is cluttered and confusing and unattrac¬ 
tive, the game will be hard to play and they aren't likely to 
come back for more. 

Visualizing what the video display will look like will help 
you as you design your own game. What will the player first 
see? Is the screen colorful; does it immediately draw the player 
into the game world? Does it create the impression of actually 
being underwater, in space, or tunneling beneath the ground? 
Imagining yourself as a first-time player of your game makes it 
easier to decide what should be included in a screen display. 

Changing Colors 

Let's start getting control of the screen display. There are 256 
possible combinations of background and border colors on the 
Commodore 64. Instead of simply describing them. I'll show 
them to you. Just type in this simple program. 

5 PRINT "{CLR}" 

10 FOR X=0 TO 255:POKE 53281,XsPOKE 53280,XsNEXT 
20 GOTO 10 

What does this program do? Location 53281 controls the back¬ 
ground color, and location 53280 controls the border colors. 

This program changes the number stored at these locations by 
POKEing 256 different numbers there—all the values from 0 to 
255. 

But this isn't very helpful. It all happens too fast. So here's 
a program that shows you the color combinations, only more 
slowly. And the program will tell you what number is being 
POKEd into each location, so that if you like the colors, you 
can use them in your game. 
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Anything between braces—"{" and "}"—is the name of a 
special Commodore 64 character. In line 10, you type the word 
PRINT, then a quotation mark. But you don't then type 
{CLR}. Instead, you press the SHIFT key and the CLR/ 

HOME key. In line 60, you don't type {2 DOWN} {RIGHT}. 
Instead, you type the CURSOR DOWN key twice and the 
CURSOR RIGHT key one time. Special characters will appear 
on your screen as you type these in when they are used within 
quotation marks. See Appendix B, "How to Type in 
Programs," for a full explanation of this. 

All of the programs and many of the one-line listings 
include a checksum number at the end of each line. For 
example, in the program below, line 10 has the characters :rem 
197 at its end. That's the checksum number. These have been 
included to make it easier for you to enter the programs 
correctly. As you type in the programs in this book, you won't 
actually enter the checksum numbers; you'll simply use them 
to make sure the line was typed in correctly. Before you enter 
any of the programs in this book, read through Appendix J, 
"The Automatic Proofreader," for the short checksum program 
and description of how it operates. 


Program 3-1. Screendemo 


Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 


this program. 

10 PRINT"{CLR}" :rem 197 
20 FOR BR=0 TO 15 :rem 83 
30 FOR BG=0 TO 15 :rem 73 
40 POKE 53280,BR :rem 85 
50 POKE 53281,BG srem 76 


60 PRINT "{HOME}{2 DOWN}{RIGHT}BORDER COLOR="BR?" 
{LEFT} {2 RIGHT}BACKGROUND COLOR="BG"{LEFT} " 

srem 243 


70 FOR T=0 TO 1000:NEXT srem 236 

80 NEXT:NEXT srem 32 


Now the screen changes more slowly, so you can see what's 
happening. Also, line 60 shows you the numbers being 
POKEd into both the border (BR) and background (BG) loca¬ 
tions. Some of the color combinations are more attractive than 
others, while still others lend themselves better to text display. 
If you see a particular combination you like, just hit the RUN/ 
STOP key and check the values on the screen. If you can't 
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make them out, you can press the RUN/STOP-RESTORE keys 
and then type: 

PRINT BR 
and/or 
PRINT BG 

and the last-used values will appear. 

Notice that when the background value is 14, the numbers 
on the screen disappear. The numbers are still there, but 
they're invisible because they're the same color as the back¬ 
ground. If you ever PRINT or POKE a character onto the screen 
and it doesn't show up, the first thing to do is POKE a 
different value into 53281—chances are the character is invis¬ 
ible because it's the same color as the screen. 

Invisible objects. That's an important thing to remember 
—anything that is the same color as the screen background 
seems to disappear. That means that you can put invisible 
objects on the screen, and then make them suddenly reappear 
by changing either their color or the background color. Magic— 
with a single POKE. 

Here's a program to show you how that works: 

Program 3-2. OnOff 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 1 23. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 PRINT H {CLR}" srem 197 

20 POKE 53281,14+13*(PEEK(53281)=254)sGOSUB 30:GOT 
O 20 srem 114 

30 FOR 1=0 TO 19s PRINT CHR$(94)"{DOWN}{RIGHT}sNE 
XTsRETURN srem 211 

Line 20 acts like an on-off switch. It POKEs 53281 with 14, 
unless the location already contains a value which will create 
that color, 254. In that case it POKEs 53281 with 1. But where 
does the 1 show in that line? 

On-off switch. A good thing to remember with the 64, 
and many other computers, is that false has a value of zero and 
true has a value of negative one. So the expression 
(PEEK(53281) = 254) has a vafue of 0 if the location does not 
contain 254, and a value of -1 if 53281 does contain 254. 

13 times 0 is 0—so if 53281 holds any number other than 
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254, the program POKEs it with 14 + 0, or 14. 

13 times -1 is -13, however. So if 53281 does contain 254, 
line 20 POKEs it with 14 -13, or 1. 

You could have done it another way, using two program 
lines: 

20 IF PEEK(53281)=254 THEN POKE 53281,l:GOTO 30 
25 POKE 53281,14 

In all programming, there's usually more than one way to 
do the job. 

Default color What color does the screen usually display? 
Type RUN/STOP-RESTORE, to get the screen back to normal, 
and then type in PRINT PEEK(53281). The number 246 appears 
on the screen. That is the normal or default value of 53281—the 
number the 64 puts into that memory location once you turn it 
on. You'll notice that the value in the memory location is quite 
different than the numbers you POKE into that location to 
effect changes. Although you can use only the numbers from 0 
to 15 to POKE new colors onto the border and background 
sections of the screen, the computer stores the values differ¬ 
ently. To return a value between 0 and 15, you need to use the 
PEEK command like this: 

PRINT PEEK(53281) AND 15 

which will then eliminate all other values except those between 
0 and 15. 

Hide and Seek 

Why did POKEing 53281 change the background color? Can 
one POKE do that much? 

No. That POKE didn't actually change the colors. Color 
changes are complex operations, since the 64 has to change its 
entire signal to the television or monitor screen. That signal is 
handled by the Video Interface Chip II, which does all the 
communication between the computer and the screen. The 
VIC-II chip updates the screen display 60 times a second. You 
don't have to worry about it—it's done automatically. The 
important thing to remember is that the VIC-II chip looks at 
certain memory locations in order to find out what the screen 
should look like. 53281 is the location where the chip looks— 
every sixtieth of a second—to find out what the background 
color should be. 53280 is the location it looks at to find out the 
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border color. By putting a different number there, you are 
telling the chip what colors you want. The VIC-II chip takes 
care of the rest. 

Screen Memory 

This principle applies to everything about screen display and 
graphics. The VIC-II chip in the Commodore 64 looks at a 
number of locations to find out what you want on the screen. 
By changing what is in those locations, you can tell the 
computer to display exactly what you want. You only have to 
follow the rules. 

Besides checking 53281 and 53280 to get the background 
and border colors, the chip also scans an area called screen 
memory to find out what characters to show on the screen, 
another area called color memory to see the foreground and 
background color of those characters, and still another area, 
called the character set, to find out what the character should 
actually look like. It checks other things, too, but we won't 
worry about them now. And remember, it checks all these 
areas 60 times a second. 

By changing what the computer finds when it scans 
through these memory areas, you control what gets shown on 
the screen. You can change these locations using PEEKs and 
POKEs. 

PEEKS and POKEs 

If you're already familiar with the rules about using PEEKs and 
POKEs, you can skip this section. 

POKE. This command puts a new number into a memory 
location. POKE is always followed by two numbers. The first 
number is the address that you want to change. The second 
number is the new value that you want to store there. There is 
always a comma between the two numbers: 

POKE 53281,15 

Legal POKEs. POKE always has to specify an address that 
actually exists. That means that you can't POKE to a negative 
address or to an address higher than 65535. Also, you can only 
POKE into an address a number from 0 to 255. Negative 
numbers or numbers above 255 will give an error message and 
stop your program. 

POKE uses only integers—whole numbers, with no frac¬ 
tions. However, using a fraction will not stop your program. 
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POKE automatically chops off the fraction, both in the address 
and in the number you're POKEing. If you told the 64 

POKE 53281.5,14.2 

it would act as if you had entered 

POKE 53281,14 

What can you POKE? The numbers you POKE don't 
always have to be constants. They can be variables that contain 
the values you want in your program: 

POKE ADDR,NU 
POKE C(I),N(I) 

You can even use expressions, such as: 

POKE ADDR+X,INT(X*100)/256 

Everything to the left of the comma is calculated to decide the 
address, and everything to the right of the comma becomes the 
value to POKE. 

PEEK. You use this function to find out what is stored in a 
certain location, without changing the value already there. 
PEEK is not a command like POKE—it does nothing alone. If 
you enter PEEK(648), the computer won't know what to do. 
You also have to have a command that tells the computer to do 
something with the value it finds when it PEEKs at a certain 
memory location. The location you are PEEKing must always 
be in parentheses right after the word PEEK. 

X=PEEK(648) 

You can use PEEK with many different commands: 

PRINT PEEK(1024) 

IF PEEK(1024) = PEEK(2023) THEN N = PEEK(648) 

FOR A = 0 TO PEEK(53281) 

PEEK also works with expressions, like: 

A = PEEK(INT (N/256)*256 + X + 5) 

Whatever number results from the calculation becomes the 
address which is PEEKed. 

PEEKing and POKEing in Screen Memory 

POKE is the command you'll use to directly change one spot 
on the screen. You'll use the PEEK function to find out what is 
stored in a particular memory location in screen memory. 
Because the computer can't actually see what is on the screen. 
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this is the only way your program can find out, and know, 
what is being displayed at any given spot. 

A sample program can show how this works. The value 
ADDR will be 1024. The variable X will be added to ADDR to 
select different locations on the screen: 

Program 3-3. Screenful 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader" before entering 
this program. 

10 ADDR=1024 srem 128 

20 POKE 53281,1 ;rem 241 

30 FOR X=0 TO 1000 srem 115 

40 POKE ADDR+X,INT(RND(X)*256)sNEXT :rem 102 

50 FOR X=0 TO 1000 srem 117 

60 POKE ADDR+X,32sNEXT srem 61 

The program is simple, yet it has quite an effect on the screen 
display. 

Lines 30 and 40 put randomly selected characters on the 
screen. Lines 50 and 60 fill the screen with the same character 
you get when you press the space bar, a blank. 

You'll notice that wherever there was writing on the screen 
before you typed in RUN, the characters are blue, and the 
inverse characters have a blue background. This is because 
you've done nothing to change color memory. That will come a 
bit later in this chapter. 

Getting the Screen under Control 

Changing the screen display is easy. The hard part is changing 
it exactly the way you want, to get the effect you want. We're 
getting there. 

Codes. Notice that the screen doesn't display the numbers 
that resulted from the expression in line 40. Instead, it treats 
those numbers as codes for certain characters, such as letters, 
numbers, and symbols, and then prints the characters on the 
screen. These are not the same as the ASCII codes that you use 
with the CHR$ function. You get quite different results from 
these two statements, for instance: 

PRINT CHR$(94) 

POKE 1024,94 

The CHR$ function uses the ASCII code values. Almost every 
computer understands the ASCII character codes—that's why 
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BASIC uses them, so that one program can be easily trans¬ 
ported to another computer. But your 64's operating system 
has a harder time with them. 

So you have two systems of code. This sample program 
shows the differences between them: 


Program 3-4. Screencodes 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 


10 ADDR=1024:S$="THIS IS A TEST" 

20 PRINT "{CLR}"S$ 

30 FOR X=1 TO 14 
40 A=PEEK(ADDR+X-1) 

50 A$=MID$(S$,X,1) 

60 PRINT A;TAB(5);A$;TAB(8);ASC(A$) 
70 NEXT X 


:rem 7 
:rem 61 
srem 24 
:rem 84 
srem 174 
srem 207 
srem 254 


This program puts a test message on the screen, PEEKs at the 
first 14 locations of screen memory, where the message 
appears, and then PRINTS the screen code number stored at 
that address, the character, and finally the ASCII value of the 
character. By comparing the numbers, you can see how 
different they are. 

But the differences are not purely random. You'll notice 
that the screen code is always 64 less than the ASCII code, 
except for the blank space, which is 32 on both lists. To be sure 
when you use either code in your game program, however, 
refer to the ASCII Code and Screen Code tables in Appendices 
F and G of this book. 

Organization of Screen Memory 

Computer memory is one long chain of addresses, one right 
after another. One section of this chain is used as screen 
memory. The 1000 bytes from 1024 to 2023 are used as a map of 
the TV or monitor screen. Each of the 1000 bytes represents one 
of the 1000 pixels on the screen. To see just one of these pixels, 
type this in: 

{RVS} Space bar 

and then hit RETURN two times. The small square now in the 
top-left comer is one pixel of the screen. 

To convert that memory into 25 rows of 40 characters each, 
the VIC-II chip reads screen memory as if it were cut every 40 
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addresses. At every forty-first address, the VIC-II chip begins a 
new row on the screen. See the Screen Location Table in 
Appendix C. 

In reading screen memory, the VIC-II chip starts at the 
upper-left comer, moves across the top row to the right, and 
then jumps down to the leftmost character in the second row 
and moves across that row to the right. When it gets to the 
lower-right corner of the corner of the screen, it jumps back up 
to the top-left corner and starts over. 

The upper-left comer is the lowest address of screen 
memory (1024). The lower-right comer is the highest address of 
screen memory (2023). It may seem confusing that the top of 
the screen is lower in memory than the bottom of the screen, 
but it just means that the lowest-numbered address is at the 
top of the screen, and the highest-numbered address is at the 
bottom. If you remember that the 64 reads from left to right, 
from top to bottom, just as we do, and that the memory 
address follows the same order, it shouldn't be confusing. 
Appendix C shows the address of each screen location. 

To change the screen display, the POKE command is used. 
A simple program, using a FOR/NEXT loop, can show each of 
the 1000 memory locations in screen memory: 

10 POKE 53281,1 

20 FOR X=1024 TO 2023:POKE X,83:NEXT 
30 GOTO 30 

As soon as you type in RUN, the screen will fill with the char¬ 
acter whose screen code is 83, the heart-shaped figure. Each of 
the 1000 memory locations of screen memory will be filled with 
this character. You can place any of the 64's characters, or your 
own custom characters, into any of the memory locations in 
the computer's screen memory. 


Setting Up a Screen 

Let's say we want to draw a cross in the middle of the screen. 
The screen's center is character 19 of row 12 (counting from 0 
for both). To find the exact address in memory of any location, 
including this one, multiply the row number (12) by 40, the 
total number of addresses per row. The answer is 480. Then 
add 19, since we want the twentieth character in that row (the 
first character is numbered 0). The answer is 499. 
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Program 3-5. Border 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 


10 SC=1024:PRINT”{CLR}” :rem 153 

20 POKE 53281,1 srem 241 

30 ROW=12:COLUMN=20sGOSUB 150 ;rem 242 

40 COLUMN=COLUMN-lsGOSUB 150 srem 235 

50 COLUMN=COLUMN+2sGOSUB 150 srem 235 

60 ROW=ROW-lsCOLUMN=COLUMN-lsGOSUB 150 srem 178 

70 ROW=ROW+2sGOSUB 150 srem 65 

80 ROW=0sFOR COLUMN=39 TO 0 STEP -lsGOSUB 150SNEXT 

srem 155 

90 COLUMN=0sFOR ROW=0 TO 24sGOSUB 150sNEXTsrem 252 
100 ROW=24 sFOR COLUMN=0 TO 39 sGOSUB 150 sNEXT 

srem 96 


110 COLUMN=39 sFOR ROW=24 TO 0 STEP -lsGOSUB 150sNE 
XT srem 251 

120 GOTO 30 srem 47 

150 POKE SC+COLUMN+ROW*40,102sRETURN srem 222 


If you type in only lines 10,20,30,120, and 150, then RUN it, a 
small checkered square will appear at the center of the screen. 
(RUN this program each time you enter a new line to see how 
each statement affects the screen display.) 

To put a character just to the left of that one, subtract 1 
from the value of COLUMN. Subtracting 1 always moves you 
one space to the left, unless you're already at the leftmost 
column. 

40 COLUMN=COLUMN-lsGOSUB 150 srem 235 

To add a character to the right, add 2 to the value of COLUMN. 
Why 2? You changed the value of COLUMN in line 40 to equal 
19 (20 -1=19), so to get to column 21, you must add 2 (19+2=21). 

50 COLUMN=COLUMN+2 sGOSUB 150 srem 235 

Moving up a row is almost as simple. Remember that each 
row is 40 characters long. So the spot directly above the original 
character on the screen is 40 addresses earlier. However, in this 
sample program, the subroutine at line 150 takes care of mul¬ 
tiplying by 40. So to move up, you only have to subtract 1 from 
ROW. You also need to get COLUMN back to its original value. 
60 ROW=ROW-lsCOLUMN=COLUMN-lsGOSUB 150 srem 178 
Now, to move down a row, you need only add: 

70 ROW=ROW+2sGOSUB 150 srem 65 
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Borders 

Putting a border around the screen is also quite easy, using the 
POKE command. First, to fill up the top row, you should type: 

80 ROW=0:FOR COLUMN=39 TO 0 STEP -l:GOSUB 150:NEXT 

:rem 155 

Now the left-hand margin: 

90 COLUMN=0:FOR ROW=0 TO 24:G0SUB 150:NEXT:rem 252 
The bottom row: 

100 ROW=24:FOR COLUMN=0 TO 39:GOSUB 150:NEXT 

:rem 96 

And the right-hand margin: 

110 COLUMN=39:FOR ROW=24 TO 0 STEP -l:GOSUB 150:NE 
XT :rem 251 

(We used line 120 to keep the program running, so that the 
READY message didn't spoil the screen display.) 

120 GOTO 30 :rem 47 

You'll have to press RUN/STOP to end the program. Notice in 
lines 80 and 110 that the STEP command is used to draw the 
border from right to left, and from bottom to top, respectively. 
The STEP command is very useful when POKEing in new 
values to the screen memory when you want to make it create 
screen displays. Instead of drawing always from left to right, 
or top to bottom, the STEP command makes it seem as if the 
border, for instance, is racing around the edge of the screen. 

Random Screen Displays 

The screen you just created will appear the same every time 
you run the program. To design a screen that will be different 
every time, something very useful when designing a game, 
you need to do things a bit differently. For example, let's take a 
look at a screen which shows a different starfield each time it 
runs. 

Program 3-6. Starfield 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 ADDR=1024:CL=55296:POKE 53280,0:POKE 53281,0:PR 
INT”{BLK}{CLR}" :rem 78 

20 Q=100*RND(9)+20:Q1=6*RND(9)+2 :rem 202 

30 FOR 1=0 TO Q:X=1000*RND(9):N=46:GOSUB 150:NEXT 

:rem 20 
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40 FOR 1=0 TO Q1:X=1000*RND(9):N=81:GOSUB 150:NEXT 

:rem 69 

50 FOR 1=0 TO 999:NEXTSPRINT "{CLR}":GOTO 20 

:rem 60 

150 POKE ADDR+X,N:POKE CL+X,N:RETURN :rem 236 

This program creates a field of distant (small) and close (large) 
stars. It waits about a second before drawing an entirely 
different star pattern. 

There are three random elements: how many near stars, 
how many distant stars, and where the stars are placed on the 
screen. 

Line 20 is where the program decides how many far stars 
(Q) and near stars (Ql) there will be. There will always be at 
least 20 and never more than 120 distant stars, while there will 
be between 2 and 8 close stars. In lines 30 and 40, these 
random values are used to decide how many stars of each size 
will be placed on the screen. Lines 30 and 40 also generate a 
random number, X, which represents the screen address 
where a star will be placed. So the number of near stars and far 
stars and their placement on the screen are all random. 

Controlling the random numbers. How do these random 
numbers work, and how are they created? The RND(n) func¬ 
tion generates a random fraction between 0 and 1. The number 
in parentheses (called the argument) doesn't matter. You don't 
have to use the same number as in the examples. Your 
program then multiplies the random fraction to get a random 
number in the range you want. 

Integers. The number that results will almost always be a 
fraction, so to get a whole number you should use the INT 
function. A - INT(500*RND(5)) will give you a number 
between 0 and 499. A = INT(5*RND(5)) will generate a number 
between 0 and 4. 

Minimums. You can establish minimums to the range of 
random numbers by adding to it. A = INT (5*RND(5) + 3) will 
give you a number between 3 and 7. 

A simple program like this will let you see this generation 
of random numbers: 

100 A=INT(5*RND(9)+55)SPRINT A,:GOTO 100 

Hold the CTRL key down to slow the display. You can type 
RUN/STOP to end the program. Changing the 5 and 55 to other 
values will let you see other random numbers. 
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Changing the 9 has no effect, however. It is considered the 
argument, remember, and it has no effect on the function. Yet it 
must be there, because all functions (as opposed to commands 
such as POKE or PRINT) have to have a number in 
parentheses. 

Random numbers are vital to most games, because they 
are the easiest way of making sure the game never plays the 
same way twice. You only need to set the appropriate mini- 
mums and maximums for the RND function to make it work 
for you and your game program. 

Regular patterns. As a general rule, the more regular the 
pattern of your playfield, the simpler the program needed to 
create it. A simple pattern needs only a few lines: 

Program 3-7. Fillin 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 ADDR=1024:POKE 53280,1:PRINT"{CLR}":POKE53281,1 
2sN=160 srem 61 

20 FOR X=0 TO 39 STEP 2:F0R Y=0 TO 23 STEP 2:G0SUB 
150sNEXT:NEXT srem 42 

140 END srem 108 

150 POKE ADDR+X+40*Y,NsRETURN srem 9 

Variety. Just because you use a regular pattern in the play- 
field doesn't mean it has to be dull. You can make slight 
changes in your screen setup that will make a big difference on 
the TV or monitor. Adding these four lines to the program you 
just typed does that: 

Program 3-7. Fillin, Cont. 

30 READ Ns IF N=0 THEN RESTOREsN=160 srem 0 

40 GOTO 20 srem 255 

150 POKE ADDR+X+1 + (Y+1)*40,Ns POKE ADDR+X+40*Y,NsRE 

TURN srem 165 

200 DATA 102,81,78,77,86,127,255,79,80,0 srem 189 

Now the program READs a table of information in the 
DATA statement in line 200. Each new number causes a new 
character to print to the screen. You can experiment by adding 
new numbers to the table, as long as you make sure that the 
only 0 in the list comes at the very end. 

You'll notice that the program keeps recycling through the 
characters, even though each is listed only once in line 200. 
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Line 30 is the key to this. The program READs the value of N 
from the list, remembers where it left off in the table and then 
READs the next value in order. When it sees a zero, the IF 
THEN statement notices and the RESTORE statement is 
executed. RESTORE simply puts the pointer back to the begin¬ 
ning of the list. The value of N is set to 160 again, and the 
entire loop starts over. ’ 

Many of the patterns conceal the fact that the screen is 
made up of 1000 little rectangles. Just because the 64 uses char¬ 
acters for its graphics doesn't mean you have to have 
rectangular-looking screens. 

You can see how much variety comes from changing the 
screen color. Change the 12 in line 10 to a 1, or 7, and see how 
much difference it makes. Variety can come from many 
different sources when you're designing screens for your 
game. 

Seeing What’s on the Screen 

Now that you have a checkerboard of characters on the screen, 
how can you fill in the spaces between them? All you need is a 
line that PEEKs at every location on the screen, and wherever 
it finds a spot that meets certain conditions, it POKEs a new 
character there. 

Here's a variation on the checkerboard program that 
shows how the PEEK function can be used. Consider it care¬ 
fully, for this technique will be vital later, when you're figuring 
out whether a figure has bumped into something on the 
screen. 

Program 3-8. Checkerboard 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 ADDR=1024:P0KE53281,6sPOKE 53280,1 :PRINT"{CLR}" 

:P0KE53281,1 :N=160:P=81 srem 9 

20 FOR X=0 TO 38 STEP 2sFOR Y=0 TO 23 STEP 2:GOSUB 
150:NEXT:NEXT :rem 41 

30 FOR X=0 TO 959: IF PEEK(ADDR+X) ON THEN POKE ADD 

R+X,P :rem 118 

40 NEXT:READ N,P:IF N=0 THEN RESTORE:N=160:rem 246 

50 GOTO 20 :rem 0 

150 POKE ADDR+X+40*Y,N :rem 239 

160 POKE ADDR+X+l+(Y+l)*40,N:RETURN :rem 19 

200 DATA 86,78,77,127,255,95,105,79,80,88,74,113,1 
12,32,0,81 :rem 159 
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You'll notice in line 30 that the program looks at the screen, from 
address 1024 to location 1983, but the P character is POKEd in 
only when that spot on the screen doesn't contain the current 
character N. 

Multiple READs. In line 40, the program READs two 
numbers, N and P. This means that in the DATA table, the 
numbers for N alternate with the numbers for P. If you change 
this DATA statement, you need to make sure that your list has 
an even number of values, and that there is a zero in the 
second-to-last position. 

Combining characters. You can see how the alternating 
characters can combine to create new shapes that do not exist 
in the 64's standard graphic character set. That's how you can 
make a larger picture for your game screen—combining several 
shapes to make one design. The graphics characters built into 
the 64 character set—screen codes 64-127 and 192-255, and 
ASCII codes 96-127 and 161-191 are designed so that many of 
them fit together this way to let you make continuous draw¬ 
ings easily. 

Screen Displays with PRINT 

Just because you can POKE to screen memory doesn't mean 
you always want to. Sometimes PRINT statements can be even 
more effective, since you can print entire strings at once. 
Setting up the PRINT statements takes more programming, 
and more typing, but once they're set up they can be PRINTed 
instantly on the screen. That is one of the values of the PRINT 
statement—its speed of execution. This program shows how 
quickly PRINTing a string can change the screen. Think of it as 
a wiring diagram, and imagine that you're controlling a spark 
of electricity trying to escape from the comer of the screen. 

Program 3-9. Spark 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 DIM A$(6),S$(8):POKE 53281,1:POKE 53280,1:PRINT 

“ { CLR}{BLK}":GOSUB 500 :rem 97 

20 PRINT"{HOME}{DOWN}":FOR 1=0 TO 8sPRINT A$(0):NE 
XT I :rem 120 

30 PRINT"{HOME}":GOSUB 150:PRINT A$(N+3):PRINT S$( 
8)+A$(6-N) srem 25 

40 PRINT"{HOME]{DOWN}"+S$(S)+A$(0):GOSUB 160:GOSUB 

170:PRINT "{HOME}{DOWN}"+S$(S)+A$(N) srem 247 
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50 FOR 1=0 TO 2000:NEXT:GOTO 30 :rem 182 
150 N=INT(2*RND(9)):RETURN :rem 65 
160 N=INT(3*RND(9)):RETURN :rem 67 
170 S=INT(7*RND(9)+1):RETURN :rem 169 
500 FOR X=1 TO 38:A$(0)=A$(0)+CHR$(221):NEXT 

:rem 30 


510 FOR 1=1 TO 5 STEP 4:F0R X=1 TO 19:A$(I)=A$(I)+ 
CHR$(106)+CHR$(107):NEXT:NEXT :rem 0 

520 FOR 1=2 TO 6 STEP 4:A$(I)=CHR$(221):FOR X=1 TO 
18 :rem 207 

525 A$(I)=A$(I)+CHR$(106)+CHR$(107):NEXT:A$(I )=A$( 
I)+CHR$(221) :NEXT :rent 121 

530 FOR 1=0 TO 2:A$(I)=A$(I)+CHR$(32)+CHR$(32):NEX 
T :rem 188 

540 FOR X=1 TO 38:A$(0)=A?(0)+CHR$(221):NEXT 

:rem 34 


550 FOR 1=1 TO 3 STEP 2:FOR X=1 TO 19:A$(I)=A$(I)+ 
CHR$(117)+CHR$(105):NEXT:NEXT :rem 0 

560 FOR 1=2 TO 4 STEP 2:A$(I)=A$(I)+CHR$(221):FOR 
{SPACE}X=1 TO 18 :rem 249 

565 A$(I)=A$(I)+CHR$(117)+CHR$(105):NEXT:A$(I)=A$( 
I)+CHR$(221):NEXT :rem 125 

570 S$(0)="{2 DOWN}":FOR 1=1 TO 8:S$(I)=S$(1-1)+" 
{2 DOWN}":NEXT:RETURN :rem 5 


As the screen changes, the spark will be forced onto new 
bracks. Right now, the changes are random, generated with the 
'RND(n) function, but in a game you might let the player 
control the center interruption, moving it up or down, left or 
right with the keyboard, to counter the randomly shifting top 
and bottom strips. You may want to save this program—we'll 
be adding the spark and keyboard controls later. 

Moving the Cursor with PRINT 

If you're using PRINT statements to create your own screen 
display, you need to have some way of starting the PRINT 
exactly where you want it. You do this by including the HOME 
and cursor control characters in the strings you are PRINTing. 
This is easy to do with the 64. Once you've typed the quota¬ 
tion mark to start the string, pressing the HOME key or the 
cursor control keys will cause that character to be included in 
the string, instead of simply moving the cursor. When the 
string is PRINTed, the cursor will then move just as if you were 
pressing the cursor control keys yourself. 

The easiest way to make sure the cursor always ends up in 
the right place is to PRINT the HOME character, either by 
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making it the first character in a string, or by using CHR$(19). 
This moves the cursor to the upper-left comer of the screen. 
You can then enter as many CURSOR DOWN and CURSOR 
RIGHT commands as you need to get the cursor to the exact 
position where you want the next string to start PRINTing. 

An alternative to using HOME and CURSOR RIGHT char¬ 
acters is to use the TAB function. TAB will move the cursor to 
an absolute column position. That means that no matter where 
the cursor is on a line, PRINT TAB(IO) will move the cursor to 
column 10 on that line, even if it means moving backward. In 
effect, TAB(n) finds the left edge of the screen and counts n 
columns to the right. If the n in TAB(n) is a number greater 
than 39, TAB will move to the next line. A combination of 
HOME and TAB(n) can locate the cursor anywhere on the 
screen. 

Another function, SPC(n), is sometimes used to move the 
cursor. The SPC(n) function starts counting from the current 
cursor position, and then moves n spaces to the right. This is 
not as valuable a function as TAB(n), since it is a relative, 
rather than an absolute, cursor-positioning command. 

This program demonstrates several PRINT functions, 
including the HOME and TAB(n) functions, as well as the 
cursor control character within PRINT strings. Things such as 
game titles, scores, time remaining, and other game indicators 
lend themselves well to the use of the PRINT command. This 
program creates a simple game screen, complete with title, 
total score, and time remaining. 

Program 3-10. Printscreen 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 PRINT"{CLR}"sPOKE 53281,0:TR=99 srem 28 

20 FOR X=1024 TO 1063:GOSUB 200:NEXT X :rem 47 

30 FOR X=1063 TO 2023 STEP 40:GOSUB 200:NEXT 

:rem 120 

40 FOR X=2023 TO 1983 STEP -lsGOSUB 200:NEXT X 

:rem 214 

50 FOR X=1984 TO 1024 STEP -40:GOSUB 200:NEXT X 

:rem 11 

60 FOR X=1184 TO 1224:GOSUB 200:NEXT X srem 57 

70 PRINT "{HOME}{DOWN}{WHT}";TAB(15) "SPACE GAME" 

srem 244 
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80 PRINT " {DOWN} {2 RIGHT} {YEL}TIME REMAINING! ''TR; " 
{5 RIGHT}{GRN}SCORE:"SC?"{WHT}" :rem 201 

90 TR=TR-1:IF TR=0 THEN TR=99 :rem 176 

100 SC=SC+5:IF SC>205 THEN SC=0 :rem 192 

110 FOR T=0 TO 1000:NEXT :rem 23 

120 GOTO 70 :rem 51 

200 POKE X,42:POKE X+54272,3 :rem 250 

210 FOR T=0 TO 10:NEXT :rem 184 

220 RETURN :rem 116 


Notice that the character colors were changed in lines 70 and 
80. You've already seen how to alter screen colors using the 
POKE commands. Colors can also be changed with the PRINT 
statement, simply by entering a color key as part of the string 
to be PRINTed. Pressing CTRL and a color key, on the top row 
of the keyboard, changes all the following characters PRINTed 
to that color, until another color key is used. In line 80, for 
example, there are two color changes, from yellow to green. 

Let's take a closer look at color on the 64, and especially 
color memory. It does have an important effect on what you 
see displayed on the screen. 


dolor Memory 


Color memory is a map of screen locations, just like screen 
memory, only instead of interpreting the numbers stored there 
as characters, the VIC-II chip interprets the numbers in color 
memory as color codes. 

Color memory is a perfect shadow of screen memory. For 
each of the 1000 locations in screen memory, there is a 
matching location in color memory that controls the color of 
whatever character is displayed on the screen. For example, the 
tenth byte of color memory controls the tenth character in 
screen memory. The color memory locations begin at 55296 
and end at 56295. Appendix D shows each of the color 
memory locations in the 64. 

Because of this arrangement, you can individually control 
the color of any character on the screen. By changing a partic¬ 
ular character to the background color, you can make that char¬ 
acter vanish. Or you can turn a single character into eight 
distinctly different characters by giving them different colors. 

Although you can change character color with the PRINT 
statements, as you've seen, it is usually better to POKE colors 
directly into color memory. Refer to the Screen Color Codes in 
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Appendix E for the numbers to POKE into color memory. 

You'll notice that they're the same values used to change the 
screen's background and border colors. 

PEEKing and POKEing Color Memory 

Color memory is a peculiar area of memory in the 64. You can't 
POKE any number higher than 15 into it. The numbers from 0 
to 15 use the lowest four bits of a byte; if you POKE a number 
higher than 15 into the color memory, the upper four bits of 
that number are chopped off. POKEing 255 into a color 
memory location would be the same as using the number 15. 

However, if you PEEK at locations in color memory, you 
can easily get numbers higher than 15. The 64 is putting 
garbage in those upper four bits. To use the PEEK function 
correctly, then, you should AND the value you get with 15, to 
erase the garbage in the upper four bits: 

COLOR=PEEK(LOCATION) AND 15 

After this program line is used, the variable COLOR would 
contain the color code stored in that LOCATION of color 
memory. 

Finding Screen Memory 

Relocatable programs. So far, we've been using the 
number 1024 as an absolute location for screen memory. 
(Remember that color memory always begins at location 
55296.) But when you write a program, you need to be able to 
RUN it, no matter where screen memory begins. This is espe¬ 
cially true when you switch banks on the 64, for instance when 
you're using bitmapping to create a high-resolution screen. 

Instead of using 1024 as the screen memory, then, we'll 
write a short program line that finds out where screen memory 
is. Fortunately, the 64 always stores the address of the start of 
screen memory in the upper four bits of location 53272. To find 
screen memory, you could use a program line like this: 

SC = (PEEK(53272)AND 240)*64 

From then on, the variable SC (for SCreen) will contain the 
address of the upper-left comer of the screen. You could 
include this line at the beginning of a program to show this 
address. 

If you've relocated screen memory (for whatever 
purpose), remember that you'll have to do a few more things 
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to make the computer work correctly. If you've switched video 
banks, you'll have to add the starting bank address to the 
value SC in order to show the true location of screen memory. 
For example, if you switched to the video bank which begins at 
location 32768, you would need to use: 

SC = ((PEEK(53272)AND 240)*64) + 32768 

to show screen memory's true location. 

You'll also have to POKE a new value into location 648, 
where the 64's operating system looks to find where screen 
memory is. You do this by: 

POKE 648,SC/256 

This sets a pointer to let the 64 know where to look for screen 
memory. 

On the Commodore 64, color memory is always at location 
55296. It never changes. If you use the formula CM = 55296, 

CM will always equal the address of the upper-left comer of 
color memory. To show both screen memory and color 
memory in one program line, then, you could use: 

SC = (PEEK(53272)AND 240)*64:CM = 55296 

Playing with Color Memory 

Here's a short program that will show you how color memory 
affects the screen—and which color code produces each color. 

Program 3-11. Colorpeek 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

900 SC=(PEEK(53272)AND 240)*64:CM=55296 :rem 69 
910 FOR J=0 TO 15:POKE 53281,JsPOKE 53280,1:PRINT" 
{CLR} " -rent 137 

920 FOR 1=0 TO 1000:N=INT(RND(9)*8)sPOKE SC+I,N+48 
:POKE CM+I,N srem 216 

930 NEXTsNEXTsGOTO 910 srem 97 

Line 900 establishes the values of CM and SC. Line 910 sets the 
background color to each of the possible colors. Line 920 first 
generates a random number in the range 0 to 7. It POKEs the 
screen code for that number character (N+48) into screen 
memory (SC+1), and then POKEs the color code into the 
appropriate location in color memory (CM+I). The same vari¬ 
able, I, leads to the corresponding locations in both screen and 
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color memory. 

You'll notice that there are some blanks. These are the 
color codes that are identical to the background color. What¬ 
ever character is displayed is invisible because there is no 
contrast between the background color and the character color. 

To see this working with graphics characters, try adding 
these lines to Program 3-8, Checkerboard. 

Program 3-12. Checkerboard, Cont. 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 ADDR=(PEEK(53272)AND 240)*64:CM=55296 :rem 146 
15 POKE53281,1sPOKE 53280,1sPRINT”{CLR}"sN=160:P=8 
1 :rem 231 

25 GOSUB 300 :rem 122 

40 NEXT:READ N,P:IF N=0 THEN RESTORE:N=160:rem 246 

45 GOSUB 300 :rem 124 

300 Q=INT(RND(9)*8):IF Q=1 THEN 300 :rem 119 

310 IF Q=PEEK(CM) AND 7 THEN 300 srem 131 

320 FOR 1=0 TO 959:POKE CM+I,Q:NEXT I{RETURN 

:rem 66 

Now the background will change with every screen change. 
The IF statement in line 300 protects against having characters 
the same color as the background. Line 310 protects against 
having the character color the same twice in a row. 

Or you can start again with the original version of Check¬ 
erboard, and add these lines instead: 

Program 3-13. Checkerboard, Again 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 ADDR=(PEEK(53272)AND 240)*64:CM=55296 srem 146 
15 P0KE53281,1:POKE 53280,1:PRINT"{CLR}":N=160:P=8 
1:GOSUB 300 :rem 52 

40 NEXT:READ N,P:IF N=0 THEN RESTORE:N=160:rem 246 
300 FOR 1=0 TO 959:N=INT(RND(9)*8):POKE CM+I,N:NEX 
T I:RETURN srem 14 

Now the program assigns each location in color memory its 
own random color value. What was once a completely regular, 
symmetrical screen now looks completely unpredictable. Char¬ 
acters that used to fit together to make combined patterns are 
now clearly separate. 
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Moving On ^ 

If any of the material in this chapter is still unclear to you, it 

might be a good idea to go back and review it, studying the ^ 

example programs to see how they work. Without a clear 

understanding of screen color and color memory and how to 

use them, it will be harder to make use of the more advanced 

techniques shown in the rest of the book. 
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The 64 comes with a lot of shapes you can put on the screen 
just by pressing keys or using PRINT statements in your 
program. So far, the only characters we've used to make 
shapes on the screen are graphics characters. Graphics charac¬ 
ters are shapes that don't mean anything. They aren't letters, 
numbers, or symbols like %, * $, or <. The only reason 
Commodore included them with your computer was so you 
could make shapes. Good games can be programmed using 
those shapes alone. 

Sometimes, however, the graphics characters just aren't 
enough. There is no single character that looks like a human 
being, for instance. Or a dog. Or a train. Fortunately, the 64 is 
flexible enough to let you create your own characters. 

How Characters Get Their Shapes 

When you press a key on the 64, a character (letter, number, or 
symbol) appears on the screen. Press another key, and another 
character appears just to the right of it, or on the next line. 

On a typewriter, the same thing happens. Press a key, and 
there's a character on the paper. Whenever you press A, you get 
an A on the paper. And it's always the same A, because the 
shape of that character is always there, stored as a pattern of 
raised metal, ready to be slammed through the ribbon into the 
paper. 

The 64 doesn't use all that noisy machinery, but it does 
store the character pattern, and when you press a key, the 64 
goes to the right pattern, takes it to the right location on the 
screen, and displays it there. 

Character Memory 

The area in memory where the character patterns are stored is 
called character memory or the character set. The built-in character 
set takes up 4K of memory, from 53248 to 57343. 

How big is it really? Character sets don't really take that 
much space. The built-in character set is actually two character 
sets. You switch from one to the other when you press SHIFT- 
Commodore. Each of those character sets is only 2K, and 2K is 
the largest character set that the 64 can address at any one 
time. 

That 2K set is even smaller than it looks. The first IK is the 
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regular character set; the second IK consists of the reversed 
character set—the characters that are displayed when you 
press keys after pressing CTRL-9. So the basic character set 
consists of IK, 1024 bytes of memory. 

Finding the pattern you want. The first 512 bytes are the 
patterns for the letter, number, and symbol characters—the 
characters with screen codes from 0 to 63. The next 512 bytes 
are the patterns for the graphics characters, with screen codes 
from 64 to 127. 

The character patterns are organized in the same order as 
screen codes. The pattern for the character with screen code 0, 
the @ character, is the first one in character memory; the 
pattern for A, with screen code 1, is next; then the pattern for 
B, with screen code 2, and so on. 

This means you can use the screen code as an index into 
the character set. In fact, that's just what the VIC-II chip does. 
When it reads a number in screen memory (in a text mode, of 
course, not in a bitmapped mode), it goes to the starting 
address of character memory, counts in the correct number of 
bytes, and displays whatever pattern it finds there. 

This relationship between screen codes and character 
patterns holds up even when you have changed the pattern for 
a character. The 64 doesn't care whether an A looks like an A. If 
it finds screen code 1, it will display character pattern 1, even if 
you have redefined it to look like an alien invader. 

How far to count. Each character pattern is eight bytes 
long. This means that when the VIC-II is looking for the char¬ 
acter pattern, it looks for the pattern to start at the start of char¬ 
acter memory plus eight times the screen code. This means that 
the pattern for D, with screen code 4, starts at byte 8*4, or 32, 
in character memory. The pattern for the question mark, screen 
code 63, starts at 8*63, or byte 504 of character memory. 

The Character Patterns 

Each character pattern is eight bytes long. The character 
pattern is an exact map of what the character is shaped like on 
the screen. 

If you look closely at the TV screen (and if you have good 
eyes and your TV has good resolution), you'll see that each 
individual character is made up of little dots, arranged in rows 
and columns. Each character is eight dots wide and eight dots 
high. That makes exactly 64 dots. By an amazing coincidence. 
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each byte of the eight-byte pattern contains eight bits. That 
makes 64 bits in the pattern. 

A lighted billboard. Think of the character on the screen 
as a signboard with 64 light bulbs, as shown in Figure 4-1. 
Some of the bulbs are on, and some are off. 

Think of the character pattern in character memory as a 
series of switches, as shown in Figure 4-2. When a switch is 
on, the corresponding light bulb is turned on. When a switch 
is off, the bulb is off. 


Figure 4-1. Character Patterns 



ns 

Each byte of the character pattern contains eight switches, 
^ corresponding to a row (horizontal line of dots) in the char- 

acter pattern. The top row is controlled by byte 0 of the char- 
acter pattern. The bottom row is controlled by byte 7. 

ns 
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Figure 4-2. On-Off Switches 


ON 



OFF 


So to find the byte controlling row 3 (the fourth row from 
the top) of the D character (screen code 4), with the built-in 
character set starting at 53248, you would PEEK at location 
53248 + 8*4 + 3. The formula is: 

character memory + 8 * screen code + byte number 

On bits and off bits. How are the switches turned off or 
on? Each bit in the byte can be either a 1 or a 0. If it is a 0, the 
switch is off, and the background color is displayed at that dot 
in the character's pattern. If the bit is a 1, the switch is on, and 
the foreground color (the color assigned for that position by its 
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byte in color memory) is displayed at that dot. Figure 4-3 
shows the bit patterns (and their decimal equivalents) for each 
byte of our lighted signboard. 

Figure 4-3. Bits of the Character Pattern 
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Here's a program that lets you look at the bit pattern for 
any character in character memory: 

Program 4-1. Patterns 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

5 DIM A$(7),X$(1),A(7) :rem 27 

10 VM=0:CH= 53248 srem 121 

15 X$(0)="P":X$(1)="{RVS} {OFF}":C$="£8 T3" 

srem 75 

97 REM srem 84 

98 REM MAIN LOOP srem 180 

99 REM srem 86 

100 GET A$ sIF A$="" THEN 100 srem 69 

110 A=ASC(A$)sQ=AsGOSUB 200sGOSUB 300 srem 63 

120 PRINT B$SPRINT A$sFOR 1=0 TO 7 SPRINT A$(I);A(I 

)sNEXTsPRINT C$ srem 230 

130 GOTO 100 srem 94 

197 REM srem 133 

198 REM CONVERT ASCII TO SCREEN CODE srem 142 

199 REM srem 135 

200 IF A>63 AND A<96 THEN A=A-64sRETURN srem 103 

210 IF A>95 AND A<128 THEN A=A-32sRETURN srem 148 

220 IF A>159 AND A<192 THEN A=A-64sRETURN srem 204 

230 IF A>127 AND A<160 THEN A=A+64sRETURN srem 193 

240 IF A<32 THEN A=A+128sRETURN srem 213 

250 IF A>191 AND A<255 THEN A=A-128sRETURNSrem 252 
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260 IP A=255 THEN A=94:RETURN :rem 117 

297 REM srem 134 

298 REM MAKE STRINGS TO PRINT PATTERN :rem 29 

299 REM srem 136 

300 B$="SCREEN CODE "+STR$(A) srem 47 

310 IP A<128 THEN T=AsGOSUB 400sA$=A$+"{2 SPACES}C 

HR$("+STR$(T)+")" srem 232 

320 IF A>127 THEN T=A-128sGOSUB 400sA$="REVERSE-"+ 
CHR$(T)+"{2 SPACES}CHR$("+STR$(Q)+")" srem 168 

330 X=8*A:GOSUB 800sGOSUB 700 srem 113 

390 RETURN srem 124 

397 REM srem 135 

398 REM CONVERT SCREEN CODE TO ASCII srem 144 

399 REM srem 137 

400 IF T<32 THEN T=T+64sRETURN srem 219 

410 IF T>63 AND T<96 THEN T=T+32sRETURN srem 175 

420 IF T>95 THEN T=T+64sRETURN srem 232 

430 RETURN srem 119 

697 REM srem 138 

698 REM TAKE APART PATTERN BYTES srem 205 

699 REM srem 140 

700 FOR 1=0 TO 7 sA$(I) =""sNEXT srem 65 

710 FOR 1=0 TO 7sW=A(I)sFOR J=0 TO 7 srem 106 

720 W=2*W:IF W>255 THEN W=W-256sA$(I)=A$(I)+X$(1)s 

GOTO 740 srem 106 

730 A$(I)=A$(I)+X$(0) srem 253 

740 NEXT JsNEXT IsRETURN srem 0 

797 REM srem 139 

798 REM GET PATTERN BYTES srem 17 

799 REM srem 141 

800 POKE 56334,PEEK(56334)AND 254sPOKE 1,PEEK(1)AN 

D 251 srem 185 

810 PT=CH+XsFOR 1=0 TO 7sA(I)=PEEK(PT+I)sNEXT 

srem 146 

820 POKE 1,PEEK(1) OR 4sPOKE 56334,PEEK(56334)OR 1 

srem 137 

830 RETURN srem 123 


Changing Shapes 

Before you can change the shape of a character, you have to 
move character memory. This is because the built-in character 
set is ROM, read only memory. The bits and bytes are perma¬ 
nently burned into the chip. You could POKE there all day and 
not a shape would change. You have to locate character 
memory somewhere else. 

Moving Character Memory 

Fortunately, a single POKE will tell the 64 to look for the char- 
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acter memory block in a different place. The operating system 
uses location 53272 as a pointer to the start of the character 
memory block. There are certain rules to follow in locating 
character memory. 

Character memory must be within the video block. The 
video block is the 16K that the VIC-II chip can address at any 
one time. Just like screen memory, the bitmap, and the sprite 
shape tables, character memory must be located within that 
block. When you first switch on your 64, the video block is the 
16K from 0 to 16383. The VIC-II will look for character memory 
within that block. 

The only exception is the ROM character set. The 64 is 
designed so that even though the character ROM is at 53248, 
the VIC-II thinks that it's finding character memory at 4096 
when the video block starts at 0. You can't fool the machine 
that way. Your character patterns have to be where the VIC-II 
expects to find them, or it won't see them at all. 

Character memory starts on a 2K boundary. Since a full 
character set (including reversed characters) takes 2K, there are 
only eight possible blocks within the 16K video block where 
character memory can be located—at byte 0 of the video block, 
or byte 2048, 4096, 6144, 8192,10240, 12288, or 14336. In other 
words, character memory has to start at a 2K boundary—the 
OK, 2K, 4K, 6K, 8K, 10K, 12K, or 14K boundary. 

If the video block starts somewhere other than address 0, 
then the above addresses must be added to the video block 
address to find the actual address of character memory. For 
instance, if the video block starts at 32768 (the 32K boundary), 
and the 12K boundary is selected for the start of character 
memory, then the real address of character memory is 32768 
plus 12288, or 45056. That's where you would POIQ5 the 
patterns for our custom character set. But you would still 
POKE the number 12 into 53272, since character memory is 
still at the 12K boundary within the video block. 

Use only the lower four bits of 53272. Only bits 0-3 (the 
lower, or rightmost, four bits) of the byte at 53272 control char¬ 
acter memory. The upper four bits control screen memory. So 
when changing the location of character memory, you must 
protect the screen memory information. 

If you wanted to tell the VIC-II to find character memory 
at the 12K boundary, you would not just POKE 53272,12. The 
number 12 in binary is 00001100. The lower nybble (four bits) is 
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1100, the code for the 12K boundary for character memory. But 
the upper nybble is 0000, and that tells the VIC-II to find 
screen memory at block 0. That's fine, if screen memory is 
actually at block 0. But when you turn on the 64, screen 
memory is at 1024, screen memory block 1. And if you want it 
to stay there, you can't POKE 53272,12. 

You can protect the high (leftmost) nybble by using this 
formula to POKE a character memory code into 53272. To put 
character memory at the 6K block, you would use this 
statement: 

POKE 53272, (PEEK(53272) AND 240) OR 6 

Likewise, when you are relocating screen memory and 
you don't want to change the location of the character set, you 
must protect the lower nybble. If you wanted to locate screen 
memory at block 11 (screen memory can be located at IK 
boundaries), you would use this statement: 

POKE 53272, (PEEK(53272)AND 15) OR 176 

(176 is 11*16. To turn a number from 0 to 15 into a high nybble 
value, just multiply it by 16.) 

Be careful where you put character memory. If the video 
block is at 0, you've got to be aware of all the other things 
using that section of RAM. For instance, you wouldn't want to 
locate the character set at 0, because 0-1023 is used by the 
operating system and BASIC for vital operations, and 
1024-2047 is screen memory. You wouldn't want to put char¬ 
acter memory at block 2, either, because that's the start of your 
BASIC program. In fact, the best place for a character set when 
the video block starts at 0 is at the 14K boundary, so that 
there'll be a full 12K, from 2048 to 14335, for your BASIC 
program. 

Moving the Video Block 

If your BASIC program is going to run longer than 12K, you 
will need to move the video block. This is a bit trickier than 
moving character memory. First, you have to tell the VIC-II 
which 16K block to look at. Then you have to relocate screen 
memory, character memory, and, if you're using them, the 
bitmap and sprite shape blocks within the video block. 

The video block codes. The VIC-II gets its video block 
instruction from location 56576. The video block is assigned 
with the following codes: 
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code: 0—video block starting location: 49152 
code: 1—video block starting location: 32768 
code: 2—video block starting location: 16384 
code: 3—video block starting location: 0 

It takes two steps to tell the VIC-II to locate the video 
block at 32768 (code 1). First, turn on bits 0 and 1 of location 
56578: 

POKE 56578, PEEK(56578) OR 3 

Then POKE the video bank code into 56576. Since location 
56576 also controls other functions, the rest of the byte needs 
to be protected by using this routine. 

POKE 56576, (PEEK(56576)AND 252) OR 1 

The video bank is now set to start at 32768. 

Reconfiguring video memory. Now that the video block 
has been moved, you'll want to make sure that screen 
memory, character memory, and other blocks are in safe loca¬ 
tions. For instance, if the video block starts at 32768, you have 
to avoid the entire upper 8K of the block, from 40960 to 49151, 
because that's where the BASIC ROM sits. That's no problem in 
text modes—the remaining 8K gives you room for two char¬ 
acter sets (2K each), two screen memory blocks (IK each), and 
32 separate sprite shape blocks (64 bytes each). The ability to 
have multiple screen memory blocks and character memory 
blocks is very useful, for reasons that will be explained in 
Chapter 5, on character animation. 

However, if you're using a bitmap, you're in trouble 
because the bitmap alone uses 8K. Also, any additional 
cartridge will use 32768 to 40959—wiping out the rest of the 
block. (You'll almost never have a cartridge in place when 
running a BASIC program.) 

If you use the block starting at 49152 (code 0), you have 
even more ROMs to cope with—everything above 53247 is 
used for ROMs (I/O, Kemal, Character ROM, Color RAM). But 
that still leaves you 4K from 49152 to 53247—enough room for 
one character set, one screen memory, and 16 sprite patterns. 

The block at 16384 is completely free of ROMs, so you can 
use any of it—when you're using a bitmap, you almost have to 
put it here. However, you still have the problem of large BASIC 
programs creeping up from their starting point at 2048 until 
they start spilling into this block. If your BASIC program is 
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large enough that you have to move the video block at all, 
you'll probably want to move the video block even higher than 
this just to make sure it doesn't get in the way again. 

Conventional variable names. For the rest of this chapter 
and the next, we'll assume that the variable VM contains the 
starting address of the video block, and the variable CH 
contains the starting address of character memory within the 
video block, and SC contains the starting address of screen 
memory within the video block. That is, if the video block starts 
at 32768 and character memory starts at the 6K boundary 
within the block, the variable VM would contain 32768 and the 
variable CH would contain 6144. To find the absolute address of 
character memory, you would add VM and CH. 

If there are two or more character sets, the array variable 
CH(n) will be used to express their addresses. 

This is so that all the sample programs will work regard¬ 
less of how you have configured video memory. If you are 
using the video block at 0, you can omit the variable VM from 
these routines. 

New Shapes 

Now that you have relocated character memory (and, if neces¬ 
sary, the video block), you're ready to start putting in your 
own character shapes. In fact, you have to put in your own 
character shapes. If you have tried out these POKEs, you've 
already discovered that when you move character memory, the 
VIC-II starts reading whatever's there, even if it's garbage or 
nothing at all—it doesn't care whether there's a sensible 
pattern or not; it just counts in the right number of bytes from 
the start of character memory and displays whatever bit 
pattern it finds there. 

The shape matrix. So let's get a few shapes ready to 
display. Figure 4-4 shows four characters on character grids. 
The shaded squares represent 1 bits; the unshaded squares 
represent 0 bits. The numbers above the columns on the grids 
represent the value of an on (1) bit in that position. To find the 
decimal value of each byte, just add up the values of the on bits 
in each row. Those are the numbers to put in DATA state¬ 
ments, in order from top to bottom. 
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Figure 4-4. Patterns on the Character Grid 
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Figure 4-5. Blank Character Grid 

Bit 7 6 5 4 3 2 1 0 

Decimal Decimal 

Value Values 

of on Bits 128 64 32 16 8 4 2 1 



Decimal 128 64 32 16 8 4 2 1 

Value 

of on Bits 


Figure 4-5 is a blank character grid that you can photocopy 
and use to create your own characters. Just shade the dots you 
want to have on; then calculate the sums of the on bits for each 
byte and arrange them in DATA statements. 

From DATA statements to character memory. Once you 
have the DATA statements for each character, your program 
must READ the values and POKE them into the right place in 
memory. 

What is the right place? It depends on which screen code 
you want the custom character to have. For instance, if you 
want the new character to replace @, which has a screen code 
of 0, you would POKE the pattern at VM + CH + 0. If you want 
the new character to replace the left bracket ([), which has a 
screen code of 27, you would POKE the pattern at 
VM + CH + 8*27. If the variable CS contains the screen code, 
this formula will always find the right starting address for the 
character pattern: 

POKE VM + CH+8*CS, character pattern data 
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Of course, a single POKE won't do the job—it takes eight 
POKEs, since there are eight bytes in a character pattern. You 
will use a loop to put the whole character pattern in place: 

FOR I = 0 TO 7: READ N: POKE VM + CH + 8*CS +1, N: NEXT 

This loop will run slowly, since you are performing three addi¬ 
tions and one multiplication each time through the loop. The 
same thing will go faster if your loop looks like this: 

X = VM + CH + 8*CS: FOR I = X TO X + 7: READ N: POKE I, N: 
NEXT 

If you are creating patterns for several characters in a 
row— for instance, the left bracket, British pound, right 
bracket, up arrow, and left arrow (screen codes 27-31)—you 
can use a nested loop: 

X = VM + CH:FOR I = X + 27*8 TO 31*8: FORJ = ITOI + 7: 
READ N: POKE J, N: NEXT: NEXT 

Of course, you must make sure your DATA statements are in 
the right order. That is, that DATA for screen code 27 must 
come before the DATA for screen code 28. 

Keeping part of the ROM character set. What if you want 
some custom characters, but you also want to have the regular 
letters and symbols? Once you move character memory, you 
have to provide the patterns for every character you use. But 
you don't have to have all the character patterns in DATA state¬ 
ments. You can also copy some or all of the built-in character 
set into your new character memory. You just PEEK at each 
byte of the pattern in the character ROM and POKE that byte, 
in the same order, into the new character memory. 

Since copying hundreds of bytes from one location to 
another takes a long time in BASIC, you probably don't want 
to copy more of the ROM character set than you're actually 
going to use. You can copy the entire 2K of one set, or even 
copy both built-in sets—but the person playing your game will 
have a long wait while your program PEEKs at the number in 
the built-in set and POKEs it into the new character memory 
location. Remember, this operation is carried out eight times 
for each character, and there are 256 characters in each 
complete character set. That's 2048 PEEK and POKE pairs, plus 
the time it takes to calculate the different addresses within the 
loop. 

So you'll usually want to copy only the portion of the char¬ 
acter set that you want to use. If you aren't going to use 


U 

U 

o 

u 

w 

o 

C J 

o 

w 

o 

o 

o 

o 

KJ 

O' 

^J 
V .J 


82 



Custom Characters 


r 

n 


n\ 




D 


r~) 

n 

/*\ 

o 

n 

n 

o 
n\ 
r ^ 


n 


/~\ 




r*s 


reversed characters, that eliminates the upper half of the char¬ 
acter set right away. If you aren't using any of the graphics 
characters, you don't need to copy any of the next quarter. To 
get all the letters and symbols from ROM into your new char¬ 
acter memory block, you need to copy only the first 64 char¬ 
acter patterns. That's only 512 times through the loop—a lot 
faster. 

And once you have those 64 characters copied, you still 
have room for 192 custom characters. 

Copying part or all of the character ROM requires a couple 
of operations, however. Usually the character ROM is switched 
out, so that you can't PEEK into it. This is because it uses the 
same addresses as the I/O ROMs. It saves you 4K of memory, 
but it means that you have to turn off the I/O and switch in the 
character ROM, then copy what you want to copy, and finally 
switch out the character ROM and turn the I/O back on. These 
statements perform those operations: 

POKE 56334, PEEK(56334) AND 254: POKE 1, PEEK(l) 

AND 251 

loop to copy character set 

POKE 1, PEEK(l) OR 4: POKE 56334, PEEK(56334) OR 1 
It is very important that you perform these operations in the 
order shown. 

Here is a complete program that copies the first 64 characters 
of the character set and locates them at the 14K boundary in 
the video block, which is assumed to begin at 0. 

Program 4-2. Move Character Set 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 VM=0:CC=14:CH=VM+CC*1024:RM=53248-CH:GOSUB 1100 

:rem 106 

1100 POKE 53272,(PEEK(53272)AND 240)OR CC srem 122 
1110 POKE 56334,PEEK(56334)AND 254:POKE 1,PEEK(1)A 
ND 251 srem 228 

1120 FOR I=CH TO CH+511s POKE I,PEEK(I+RM):NEXT 

: rent 140 

1130 POKE 1,PEEK(1) OR 4sP0KE 56334,PEEK(56334)OR 
{SPACE}1 srem 180 

1140 RETURN srem 166 

And here is a modification of the same program, which 
copies the first 64 characters, but then replaces characters 27 
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through 31 with five custom characters. After you run this 
program, you will be able to see the custom characters on the 
screen by typing the keys for the left bracket, British pound, 
right bracket, up arrow, and left arrow. 


Program 4-3. Move and Customize 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 


10 VM=0:CC=14 s CH=VM+CC*1024:RM=53248-CH:GOSUB 1100 


sGOSUB 1200 :rem 231 

99 PRINT "{CLR}":FOR 1=32 TO 95sPRINT CHR$(I);:NEX 
TsEND srem 26 

1100 POKE 53272,(PEEK(53272)AND 240)OR CC trem 122 
1110 POKE 56334,PEEK(56334)AND 254:POKE 1,PEEK(1)A 
ND 251 :rem 228 

1120 FOR I=CH TO CH+511sPOKE I,PEEK(I+RM);NEXT 

srem 140 


1130 POKE 1,PEEK(1) OR 4:P0KE 56334,PEEK(56334)OR 
{SPACEll srem 180 

1140 RETURN srem 166 

1200 FOR I=CH+8*27 TO CH+8*31 STEP 8sFOR J=I TO 1+ 
7sREAD NsPOKE J,NsNEXTsNEXT srem 70 

1210 RETURN srem 164 

1300 DATA 12,12,9,118,8,24,36,72 srem 27 

1310 DATA 16,16,56,124,254,146,56,40 srem 232 

1320 DATA 16,124,248,248,124,147,127,62 srem 131 

1340 DATA 170,0,242,146,159,255,126,109 srem 127 

1350 DATA 0,0,28,254,28,126,129,126 srem 180 
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Using Custom Characters 

Once the new character patterns are POKEd in and character 
memory has been reconfigured, you are ready to use the 
custom characters in your programs. You can do anything with 
custom characters that you could do with regular characters. 
You can POKE them on the screen using the regular screen 
codes. You can PRINT them to the screen using the ASCII 
codes or regular PRINT statements. 

For instance, if you have programmed the left bracket 
character to be a person running, you can put it on the screen 
with any of these methods: 

POKE SC + N, 27 
PRINT CHR$(91) 

PRINT T 
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Complex Custom Characters 

Often the small character size just won't be enough for your 
needs. You'll want a much larger picture. Of course, sprites 
can be used for that purpose—but sprites are not particularly 
useful when you want to be able to locate many versions of the 
same figure in many locations on the screen. For instance, if 
you wanted a fleet of a dozen large ships in random locations 
on the screen, your eight sprites would be used up quickly. It 
is much better in such cases to program complex characters. 

Complex characters are large figures made up of smaller 
characters. The next short program creates pictures of ships on 
the screen. Each ship is made up of 12 custom characters. Indi¬ 
vidually, the characters are meaningless. But we won't use 
them individually. Instead, we'll combine them in a string. 

This program redefines the characters @, A, B, C, D, E, E G, 

H, I, J, and K. The complex character has @, A, and B in the 
top row, C, D, and E in the next row, F, G, and H in the third 
row, and I, J, and K in the bottom row. 

POKEing a complex character to the screen is slow and 
ragged. PRINT works much better. However, you must be sure 
to include the cursor movement characters between the rows. 
Since the top row of the character is @, A, and B, we will begin 
the string that prints the complex character with @AB. Now 
we must get the cursor from the position on the screen directly 
to the right of the B to the position directly under the @. This 
will take one cursor down and three cursor left characters. In 
quote and insert modes you can enter those characters in the 
string just by pressing the appropriate cursor movement keys. 
The whole complex character string becomes the variable A$. 
Wherever you PRINT A$, the complex character appears. 

The string array S$(n) contains all the possible vertical 
positions for the start of the ship character. The numeric array 
S (n) contains the valid horizontal values to be used with the 
TAB function. Since we don't want the ships overlapping, the 
legal positions start at every fifth line and every fourth 
column. This will leave a blank column or row between any 
two adjacent ships. 

Notice how colors are assigned using the string arrary 
CL$(n). The values of CL$(n) are color key combinations 
entered in quote mode. When they are PRINTed along with 
the string holding the complex character, they force the ships 
to have different colors. 
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Then the program puts a random number of randomly 
colored ships in random locations on the screen. The last ship 
is always white, and it is the only white ship on the screen, but 
its location is random, too. This could be the flagship of the 
fleet or a treasure ship. 

Once the first display has been created, you can press any 
key and the program will automatically generate another 
random screen. This would be a good screen display generator 
for a game in which the player controls a small sailboat trying 
to make its way through a fleet of ships to reach the treasure 
ship. 

Program 4-4. Ships 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 DIM S$(4),S(7),CL$(5) srem 163 

20 CC=14sCH=CC*1024:SC=1024 srem 215 

30 PRINT "§23{CLR}"sPOKE 53272,(PEEK(53272)AND 2 
40)OR CC srem 78 

40 GOSUB 1100sGOSUB 1200 srem 35 

50 CL$(0)="§13"sCL$(1)="{BLK}"sCL$(2)="§53"sCL 
$(3)=" {YEL} " sCL$ (4)="§33" sCL$ (5 ) = " {WHT}" 

srem 182 

100 GOSUB 900 srem 170 

110 GET C$sIF C$=""THEN 110 srem 75 

120 PRINT "{CLR}"sGOTO 100 srem 251 

900 FOR 1=0 TO INT(RND(9)*12+5)sH=INT(RND(9)*8)sV= 
INT(RND(9)* 5) srem 17 

910 CL=INT{RND(9)*5) srem 111 

920 PRINT CL$(CL)S$(V)TAB(S(H))A$ sNEXT srem 203 

930 V=INT(RND(9)*5)sH=INT(RND(9)*8)SPRINT CL$(5)S$ 
(V)TAB(S(H))A$ srem 154 

940 RETURN srem 125 

1100 FOR 1=0 TO 11sT=I*8sFOR J=CH+T TO CH+T+7 

srem 155 

1110 READ NsPOKE J,NsNEXTsNEXT srem 76 

1120 FOR J=CH+256 TO CH+263sPOKE J,0sNEXT Jsrem 75 

1130 RETURN srem 165 

1200 A$="@AB{DOWN}{3 LEFT}CDE{DOWN}{3 LEFTjFGH 

{DOWN}{3 LEFT}IJK" srem 163 

1210 S$(0)="{HOME}"sFOR 1=1 TO 4sS$(I)=S$(1-1)+" 

{5 DOWN}"sNEXT srem 51 

1220 FOR 1=0 TO 7sS(I)=I*5sNEXT srem 193 

1230 RETURN srem 166 

1300 DATA 0,0,0,0,0,3,0,0 srem 149 

1310 DATA 6,26,3,2,214,106,66,194 srem 78 
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DATA 0,128,0,0,0,48,208,17 :rem 221 
DATA 1,0,0,0,3,7,6,15 srem 220 
DATA 66,74,115,246,250,226,226,242 srem 131 
DATA 18,85,155,23,31,31,22,30 srem 124 
DATA 11,15,22,55,112,112,128,64 srem 219 
DATA 250,222,226,71,122,66,66,66 srem 33 
DATA 30,22,255,31,23,31,16,16 srem 120 
DATA 32,16,200,126,59,15,3,1 srem 74 
DATA 66,66,66,66,242,95,245,255 srem 0 
DATA 16,31,27,126,86,254,120,248 srem 27 


Character Editors 

Creating characters on graph paper works, but it is slow and 
requires a lot of calculation. The easiest way to create charac¬ 
ters is using the computer. There are quite a few good character 
editor programs available. (One good character editor is "Ultra- 
font," by Charles Brannon, in Computers First Book of Commodore 
64 Sound and Graphics.) 

Also, in case you'd like to use it, here are 32 custom char¬ 
acters, which you can use however you'd like. All the lines 
before 1300 load the character set and demonstrate it. To keep 
the demonstration going, press a key. 

Program 4-5. Thirty-two Custom Characters 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

20 CC=12sVM=0sCH=CC*1024sCM=53248 srem 88 

30 GOSUB 1100:POKE 53272,(PEEK(53272)AND 240)OR CC 

srem 151 

40 PRINT M {CLR}" srem 200 

100 FOR 1=0 TO 159sPOKE 1024+1,1sPOKE 55296+1,0sNE 
XT s rem 70 

120 GET A $sIF A$=""THEN 120 srem 73 

130 POKE 53281,15SPRINT "{BLU}" srem 130 

140 FOR 1=64 TO 95sPRINT "{HOME}{12 DOWN}"TAB(19)C 
HR$(18)CHR$(I) srem 79 

150 FOR J=0 TO 200sNEXT srem 226 

160 IF PEEK(197)=64 THEN 160 srem 170 

170 NEXTsGOTO 140 srem 223 

1100 POKE 56334,PEEK(56334)AND 254sPOKE 1,PEEK(1)A 
ND 251 srem 227 

1110 RM=CM—CH sFOR I=CH TO CH+1023sPOKE I,PEEK(RM+I 
)sNEXT srem 24 

1120 POKE 1,PEEK(1)OR 4sPOKE 56334,PEEK(56334)OR 1 

srem 179 
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1470 
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1530 
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1559 
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1590 
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FOR I=CH+1024 TO CH+1280:READ NsPOKE I,NsNEXT 
s RETURN s rera 54 
REM STARSHIP UP, LEFT, DOWN, RIGHT :rem 49 
DATA 24,24,217,255,219,153,129,195 :rem 132 
DATA 63,25,16,252,252,16,25,63 srem 179 
DATA 195,129,153,219,255,153,24,24 srem 133 
DATA 252,152,8,63,63,8,152,252 srem 185 
REM ROCKET UP, LEFT, DOWN, RIGHT srem 134 
DATA 16,56,56,56,124,124,84,84 srem 196 
DATA 0,0,15,124,255,124,15,0 srem 61 
DATA 42,42,62,62,28,28,28,8 srem 42 
DATA 0,240,62,255,62,240,0,0 srem 65 
REM DECIDUOUS TREE srem 141 
DATA 57,87,186,85,20,24,24,60 srem 149 
REM EVERGREEN TREE srem 140 
DATA 8,28,8,62,28,127,60,235 srem 97 
REM RUNNING FIGURE LEFT, RIGHT srem 114 
DATA 48,48,28,20,112,30,18,48 srem 131 
DATA 12,12,56,40,14,120,72,12 srem 109 
REM MISSILE 1&2 LEFT, 1&2 RIGHT srem 176 
DATA 0,0,0,3,14,3,0,0 srem 208 
DATA 0,0,0,48,224,48,0,0 srem 118 
DATA 0,0,0,192,112,192,0,0 srem 211 
DATA 0,0,0,12,7,12,0,0 srem 5 
REM FLICKERING FIRE (2 CHARS) srem 175 
DATA 0,0,82,16,106,38,28,0 srem 230 
DATA 0,0,42,8,86,100,56,0 srem 178 
REM BICYCLIST (COMPLEX) LEFT srem 243 
DATA 1,1,28,19,24,55,39,24 srem 243 
DATA 128,128,128,128,176,200,72,48 srem 141 
REM BICYCLIST (COMPLEX) RIGHT srem 72 
DATA 1,1,1,1,13,19,18,12 srem 114 
DATA 128,128,56,200,24,236,228,24 srem 75 
REM ASTEROID, ROTATE 4 POSITIONS srem 6 
DATA 0,48,120,124,30,124,24,0 srem 108 
DATA 0,44,46,126,124,56,16,0 srem 75 
DATA 0,24,62,120,62,30,12,0 srem 7 
DATA 0,8,28,62,126,116,52,0 srem 27 
REM BOULDER srem 197 
DATA 0,0,28,30,30,126,127,255 srem 121 
REM FLICKERING STAR (2 CHARS) srem 197 
DATA 0,8,28,54,28,8,0,0 srem 88 
DATA 0,20,54,8,54,20,0,0 srem 122 
REM PIG srem 155 
DATA 0,0,0,32,62,255,126,34 srem 22 
REM SAILBOAT LEFT AND RIGHT srem 135 
DATA 16,24,44,126,111,16,126,62 srem 222 
DATA 8,24,52,126,246,8,126,124 srem 184 
DATA 0,0,0,0,0,0,0,0 srem 151 
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IVIulticolor Mode 

One limitation of the standard character screen is that the back¬ 
ground is all one color, and the foreground (the on dots in each 
character) can only be a single color within an individual char¬ 
acter. This is usually enough, but sometimes you need more 
colors in each character, or you want to be able to individually 
select the background color of each character. To display up to 
four colors within each character, you can use multicolor mode. 

Bit Manipulation 

Before we get to the particulars of multicolor mode, let's briefly 
review how to turn individual bits or groups of bits on or off 
without disturbing the rest of the byte. We've already done this 
several times, using the AND and OR operations, and if you 
completely understand how AND and OR work on the bits 
within a byte, you can skip right on to the explanation of 
multicolor mode. 

Bits and bytes. In Chapter 1 we went over how bits work 
within the byte. That is, the rightmost bit is the Is column, the 
next one is the 2s column, the next is the 4s column, and so on 
until the leftmost bit is the 128s column. To figure the decimal 
value of the number, you just add up the value of every column 
that has a 1 in it. 

When we talk about the bits, we number the bits from 0 to 
7, in order from right to left. So bit 0 is the Is column, bit 1 is 
the 2s column, bit 2 is the 4s column, and so on until bit 7 is 
the 128s column. These relationships are shown in Figure 4-6. 


Figure 4-6. Bit Numbers 
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Figure 4-7. The Byte as a Row of Glasses 
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Figure 4-7 illustrates a byte as if it were a row of eight 
glasses linked together. Each glass is a bit. If it's full (shaded), 
that bit contains a 1. If it's empty, that bit contains a 0. 

When you POKE a number into a byte, it has the effect of 
dumping out all the previous contents of the byte and then 
filling the appropriate bits to make the new number. Let's say a 
byte contains the decimal number 208, which is binary 
11010000. If you POKE a 5 into that location, it is as if you 
emptied out the 11010000 and then filled up bits 0 and 2, so 
that the new contents of that byte are 00000101. 

But what if you want the high nybble (left four bits) to stay 
1101, and only want to change the low nybble (right four bits) 
to 0101? 

In that case, you would PEEK the location, add 208 to 5, 
and POKE it back in. Now you have 213, the binary 11010101. 

But what if the previous number were not 208, but 223, or 
binary 11011111. Now if you add 5 to it you get 228, or 
11100100. Both the high and low nybbles are changed, and 
neither contains what you wanted it to contain. 

What you want is a way to pour out whatever is in the low 
nybble, the rightmost four glasses, and then fill up just the 
ones that you want filled, while the high nybble is completely 
left alone—whatever is in there remains untouched. 

To do this, you have two commands—AND and OR. 

AND. In Figure 4-8, we visualize AND as a series of lids. 
Using AND is like covering the on (1) bits with a lid and then 
tipping the glasses. All the uncovered bits are emptied out— 
they become zeros. All the covered bits are left exactly the way 
they were—if they were full, they stay full, and if they were 
empty, they stay empty. 
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Figure 4-8. AND as Lids 

protected unprotected 
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will remain will become 0 

as they were 


Notice that it doesn't matter which number is represented 
by the glasses and which is represented by the lids—the result 
is the same either way. 

So you use AND to protect the condition of certain bits in 
a byte, and empty or zero out all the others. If you AND any 
number with 11000000, or 192, all the bits in the other number 
except bits 6 and 7 will become zeros, regardless of what they 
contained before. The two high bits, however, will stay as they 
were—if they were ones, they stay ones, and if they were 
zeros, they stay zeros. 

OR. If AND is represented by lids, OR functions like 
funnels, designed to fill certain bits and leave the others alone. 
Figure 4-9 shows how OR works. Whichever bits are on are 
filled—all other bits are left alone. 
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Figure 4-9. OR as Funnels 
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AND and OR together. Many memory locations are used 
for many purposes at once. We've already seen how location 
53272 points at once to the start of screen memory (high 
nybble) and the start of character memory (low nybble). 

First, you need to pick up the value that is in location 
53272 by PEEKing that location. Then, if you want to change 
just character memory, you must empty out the low nybble— 
get rid of whatever information is there. But you don't want to 
dear out the high nybble. So you AND the byte at 53272 with 
the byte 11110000 (decimal 240). This has the effect of 
emptying bits 0-3, while keeping a lid on whatever is in bits 
4-7. 

Then you put the correct value in the low nybble. You do 
this by ORing the byte with the code for the 2K boundary 
where character memory begins. 

When these operations are finished, you're ready to POKE 
the result into location 53272. The next time the VIC-II checks 
location 53272, it will find the new values there. It will 
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continue to look for screen memory where it was before, 
because you didn't change that location, and it will start to 
look for character memory where your new instruction tells it 
to look. 

All one way. Of course, you don't always need to use both 
OR and AND. For instance, if you are going to put a zero into 
a certain bit or group of bits, you only need the AND opera¬ 
tion. Once the bits you want emptied are empty, they contain 
zeros—you don't have to OR it with a zero! Anytime you AND 
a number with 15, the high nybble (bits 4-7) will be all zeros. 
And when you AND a number with 240, the low nybble will 
be all zeros. 

Likewise, if you are filling a bit or a group of bits, with 
none to be left as zeros, you don't need AND. ORing it will be 
enough. Anytime you OR a number with 240, the high nybble 
will be all ones, regardless of what was there before. And 
when you OR a number with 15, the low nybble will be all 
ones. 

These formulas are always true: 

nnnnnnnnAND 11110000 = nnn«0000 
nnnnnnnn OR 11110000 = llllnnnn 

On and off. To turn on a particular bit (set it to 1), just OR 
the byte with the value of that bit. Bit 3 is the 8s column—so to 
set bit 3, PEEK the value already there, OR it with 8, and 
POKE it back into the same location. That bit will be set. 

To turn off a particular bit (clear it to 0), just AND the byte 
with a number that consists of all ones except for a zero in that 
bit. For example, to turn off bit 5, you only need to AND the 
number with 223, or binary 11011111. 

If you don't want to bother with calculating the decimal 
equivalents of binary numbers, there is an easy formula. To 
clear a bit, subtract the bit's value from 255. Bit 4 is the 16s 
column. To clear that bit in location 53270: POKE 53270, PEEK 
(53270) AND 255-16. 

Reversed characters. This is a general rule with binary 
numbers. To find the complement of a binary number, just 
subtract it from 255. The opposite of 11000011 (decimal 195) is 
00111100. The decimal value can be found with the operation 
255-195. 

You can reverse a character using this method. When you 
are copying a character from one location to another, just PEEK 
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the value from the original location, subtract it from 255, and 
POKE the result in the new location. 

Using Multicolor Character Mode 

Multicolor character mode is controlled at bit 4 of location 
53270. If bit 4 is 1, then multicolor mode is enabled. If bit 4 is 0, 
then standard character mode is in force. To turn on multicolor 
mode: 

POKE 53270, PEEK(53270) OR 16 
To turn off multicolor mode: 

POKE 53270, PEEK(53270) AND 239 

(Notice that the number 239 is the result of 255 -16.) 

But what is multicolor mode? 

Color instructions. Each bit in the character pattern can be 
regarded as a color instruction. Every off bit is an instruction to 
the VTC-II chip to display the background color at that dot on the 
screen. The background color is the color code (from 0 to 15) 
stored at location 53281. Every on bit is an instruction to the 
VIC-II to display the foreground color at that dot on the screen. 
The foreground color is the color code (from 0 to 15) found at 
the corresponding position in color memory (from 55296 to 
56295). 

Let's say that we've PRINTed an X at byte 9 of screen 
memory. At byte 9 of color memory, the color code is 7, for 
dark blue. This is the foreground color for that character posi¬ 
tion on the screen, regardless of what character is PRINTed 
there. At location 53281, the color code is 15, for light gray. 

This is the background color for the whole screen. Now the 
VIC-II reads the pattern for X (screen code 24) starting at byte 
8*24. For every 0 bit, a light gray dot appears on the screen at 
the corresponding position within the character. For every 1 
bit, a dark blue dot appears. 

So in standard character color mode, each color instruction 
is one bit, and it can select one of two possible colors, the fore¬ 
ground color or the background color. 

In multicolor character mode, each color instruction is two 
bits, a bit-pair. This means that it can specify one of four 
different colors. The bit-pair can be either 00, 01,10, or 11. 

Now when the VIC-II reads a character pattern, it displays the 
color at 53281 when it finds the bit-pair 00, and it displays the 
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color at that position in color memory when it finds the 
bit-pair 11. 

The other two bit-pairs are color instructions, too. Every 
01 bit-pair displays the color code (from 0 to 15) stored at loca¬ 
tion 53282, and every 10 bit-pair displays the color code (from 0 
to 15) stored at location 53283. 

Bit-pairs and double dots. There is one problem: Each 
character pattern still has only eight bytes, and each byte of the 
pattern still has only eight bits. At the same time, the character 
position on the screen is still eight dots wide and eight dots 
high. But with two bits being used up by each color instruc¬ 
tion, there can be only half as many different color instructions 
per byte, and therefore only half as many per character. (See 
Figure 4-10.) 


Figure 4-10. Bit-pairs 
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The solution is that each color instruction controls two 
dots. The two dots controlled by the same bit-pair always 
display the color called for by that instruction. The double dot 
acts like one dot when it comes to color selection. 

Naturally, this does funny things to character patterns. 

You can see this by filling the screen with characters—an easy 
way to do this is to LIST a program you already have in 
memory. Then switch to multicolor mode with this instruction: 

POKE 53270, PEEK(53270) OR 16 

Watch the screen change. Suddenly the characters aren't 
too legible anymore! Figure 4-11 show why, using the pattern 
for a starship. When each bit controlled an individual dot, 
there were spaces of background color between individual lines 
of the foreground color. But now, in multicolor mode, the zeros 
no longer represent single dots of background color—now 
they are paired with the adjacent 1 to form a bit-pair with 
either a 01 or a 10 color instruction, and the double dot will 
display that single color. 

Figure 4-11. Multicolor Patterns 


One-Color Starship 
Character 


Multicolor Interpretation 
of the Same Character 



ooonooo 


10011001 


10011001 


10111101 


liiiiiu 


11011011 


10011001 


11000011 


Color memory switches. There's another feature with 
multicolor mode. Once it has been enabled at 53270, you can 
switch it on or off individually at each character position on the 
screen. In multicolor mode, color memory is used differently. 
In standard color mode, the low nybble contains one of 16 
possible color codes, from 0000 to 1111 (decimal 0 to 15). The 
high nybble cannot be used. 
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In multicolor mode, however, only bits 0 to 2 are used for 
the color code. This means that you can select only eight 
colors, from 000 to 111 (decimal 0 to 7). Bit 3 is used differently 
now. It switches between multicolor and standard mode for 
that character position. If bit 3 is set (1), at byte 320 of color 
memory, the VIC-II will interpret the bytes of the character 
pattern as bit-pairs, and display them as double dots. If bit 3 is 
clear (0), the VIC-II will interpret each bit as an individual color 
instruction. 

This means that by controlling the number in color 
memory, you can control whether or not multicolor mode is 
used. On the same screen you can have letters of regular text 
and custom characters in multicolor mode. 

The easiest way to set color memory is to PRINT with the 
normal color keys embedded in a string. Now, however, the 
colors you get by pressing Commodore and a number key 
select multicolor mode for everything that is PRINTed to the 
screen until the next color key. However, it will now give you 
exactly the same foreground color as you would get by 
pressing CTRL and the same number key.The colors from 8 to 
15 are not accessible for the foreground in multicolor text 
mode, though they can still be used for the colors controlled at 
53281,53282, and 53283. 

This program creates a display using multicolor mode. It 
is essentially the same as the ship display we used before, 
except that the ships have been replaced by multicolored trees, 
and a single black-leafed tree has replaced the single white ship 
at the end of each new screen. Again, press any key to create a 
new screen. 


Program 4-6. Multicolored Forest 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 


10 

20 

30 

40 

50 


60 


DIM S$(4),S(9),CL$(5) srem 165 

CC=14sCH=CC*1024sSC=1024 srem 215 


PRINT "{GRNHCLR}" sPOKE 53272, (PEEK(53272)AND 2 
40)OR CC srem 215 

GOSUB 1100sGOSUB 1200 srem 35 

CL$(0)="i63"sCL$(l) = ,, i63"sCL$(2) = "i3i ,, sCL 
$(3) = "i63"s CL$(4) = "|83"sCL$(5)="{BLK}" 

srem 96 


POKE 53282,9sPOKE 53283,0sPOKE 53281,11sPOKE 53 
280,0 srem 137 
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100 GOSUB 900 :rem 170 

110 GET C$:IF C$="" THEN 110 :rem 75 

120 PRINT "{CLR}"s GOTO 100 srem 251 

900 FOR 1=0 TO INT(RND(9)*12+5)sH=INT(RND(9)*8):V= 
INT(RND(9)* 5) srem 17 

910 CL=INT(RND(9)*5) :rem 111 

920 PRINT CL$(CL)S$(V)TAB(S(H)) A$sNEXT srem 203 
930 V=INT(RND(9)*5)sH=INT(RND(9)*8)SPRINT CL$(5)S$ 
(V)TAB(S (H)) A$ srem 154 

940 RETURN srem 125 

1100 FOR 1=0 TO 11sT=I*8 sFOR J=CH+T TO CH+T+7 

srem 155 

1110 READ NsPOKE J,NsNEXTsNEXT srem 76 

1120 FOR J=CH+256 TO CH+263sPOKE J,0sNEXT Jsrem 75 
1130 RETURN srem 165 

1200 A$="@AB{DOWN}{3 LEFT}CDE{DOWN}{3 LEFT}FGH 

{DOWN}{3 LEFT}IJK" srem 163 

1210 S$(0)="{HOME}"sFOR 1=1 TO 4: S$ (I)=S$(1-1)+" 

{5 DOWN}"sNEXT srem 51 

1220 FOR 1=0 TO 9sS(l)=I*4sNEXT srem 194 

1230 RETURN srem 166 

1300 DATA 12,60,60,240,255,61,61,1 srem 114 

1310 DATA 60,252,252,240,243,255,51,67 srem 73 

1320 DATA 0,0,0,0,0,192,240,64 srem 160 

1330 DATA 0,3,3,0,0,3,3,3 srem 164 

1340 DATA 125,127,252,236,236,233,253,189 srem 235 

1350 DATA 64,240,48,0,204,255,255,12 srem 228 

1360 DATA 3,0,3,3,63,53,1,240 srem 121 

1370 DATA 189,125,248,200,184,52,84,16 srem 90 

1380 DATA 95,3,3,0,0,60,204,255 srem 230 

1390 DATA 60,60,233,224,192,0,1,40 srem 120 

1400 DATA 20,23,89,150,42,169,170,136 srem 25 

1410 DATA 252,252,111,140,0,0,84,138 srem 214 


You can also POKE into color memory to turn multicolor 
mode on or off for particular character positions—or for the 
whole screen. To change a location LC in color memory to 
multicolor code without changing the color, use this statement: 
POKE LC, (PEEK(LC)AND 7) OR 8 

To turn off multicolor memory at the same location, again 
without changing the color, use this statement: 

POKE LC, PEEK(LC)AND 7 

(You'll notice that in both statements, we are in effect clearing 
the high nybble. It really doesn't matter much, because color 
memory is a unique area of RAM—each byte only contains 
four bits. In some 64s, the high nybble contains random 
garbage. In others, the high nybble contains zeros. It's usually 
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best just to erase those bits by ANDing with 15 or less, so 
there's no chance they can mess up your calculations.) 

Since multicolor characters allow very little detail within 
an individual character, you will almost always use them as 
building blocks for larger images. You can design them to be 
either part of a larger complex character or pieces that can be 
combined many different ways. 
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Getting Things 
Moving 

Movement on the television screen is a series of still pictures. 
The pictures seem to move because each still picture is slightly 
changed from the one before, and each new picture comes on 
the screen so quickly that our eye can't see the jump from one 
to the next. 


Movies change their image 24 times per second—any slower, 
and you begin to see flickering. 

But the raster scan in your television refreshes the screen 
image 60 times per second. That's almost three times faster than 
the minimum for smooth animation. If you're programming in 
machine language, that leaves you plenty of room to perform 
all your calculations and still change the screen image often 
enough to have smooth movement. In fact, most machine 
language games have to insert delay loops or timing routines 
to slow them down so you can see what's happening on the 
screen. 

That's why, in arcade games, no matter how fast the game 
goes, it can always go faster when you get to the next level. 
Even when the computer is controlling dozens of figures on the 
screen at the same time, it is probably marking time to stay 
slow enough for you to play it. 

Unfortunately, BASIC calculations are slower (but a lot 
easier to program!) than machine language calculations. It's 
sometimes hard to perform all the calculations you need fast 
enough for animation to be smooth. You need to make sure 
that your program performs as few calculations as possible 
between each movement on the screen, or your game will run 
slower and slower and slower. 

Movement and Animation 

There are really two separate problems in programming move¬ 
ment on the screen. One is getting a figure to move from one 
screen location to another. The other is making the figure seem 
natural in its movements. Even though the terms movement 
and animation are used almost interchangeably, in this book I'd 
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like to use them to mean different things. 

Movement is changing the location of the figure. 

Animation is changing the shape of the figure. 

For instance, in Donkey Kong, movement is getting Mario 
from one place to another on the screen—up and down 
ladders, along ramps, jumping, etc. Animation is the way 
Mario's shape changes: his legs move, he seems to face the 
direction he's moving in, he moves the hammer up and down. 
All these things make his movement seem human and commu¬ 
nicate what he's doing. 

Chances are, since sprites are easy to use on the 64, that 
you'll want to use a sprite for the main player-controlled 
figure. However, you'll usually want a lot of other things to be 
moving, too, and in this chapter we'll see how to get fast and 
varied movement using character graphics on the screen. 

Three Steps to Movement 

Let's assume that the figure that we want to move is already on 
the screen. We know he's at location 20 in screen memory. To 
make the figure move, we need to carry out three steps: 

1. Calculate where the new location should be. 

2. Erase the figure at the old location. 

3. POKE or PRINT the figure at the new location. 

Perform those steps over and over again, and you have 
movement. 

Wraparound Movement with POKEs 

Here's a program that will show you movement at it simplest. 

It uses POKE commands to make a single figure move in 
random patterns on the screen. When it reaches the edge of the 
screen, it wraps around—it disappears on the left side and 
reappears on the right side, or disappears at the top of the 
screen and reappears at the bottom. 

It's important to understand, step by step, what's 
happening in this program. Most of your programming time— 
and debugging time, too—will be spent with getting exactly 
the movement effects you want on the screen. And most of the 
principles here will apply to sprites, too. So even though this 
program is quite short, let's go through it line by line to make 
absolutely clear what's happening. This program will be the 
basis of almost every other program in this chapter. If you type 
this in and SAVE it, most of the other programs can be entered 
just by LOADing this program; adding, editing, or replacing 
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lines; and then SAVEing the new version with another 

filename or on another tape. 

How the Program Works: 

Line Function 

20 Set up variables 

SM = screen memory start address 
CM=color memory start address 
EV = end of screen—vertical. (The last row number 
minus 1. Later, the program will know we are at the 
last row of the screen when the row number is 
greater than this number.) 

EH = end of screen—horizontal. (The last column 
number minus 1.) 

BV = beginning of screen—vertical. (The first row 
number plus 1. As always, the numbering really 
begins with 0.) 

BH=beginning of screen—horizontal. (The first 
column number plus 1.) 

HN = number of columns to return horizontally for 
wraparound. (This is the total number of columns 
available on the screen.) 

VN = number of rows to return vertically for wrap¬ 
around. (This is the total number of rows available 
on the screen.) 

30 FG = screen code for the figure 

BL=blank—the screen code for erasing the figure. 
(Usually 32, but if you have the screen filled with 
another character as a pattern, you would use that 
character's screen code for the erasure.) 

FC = figure color—the number to POKE into color 
memory for the figure 
BC = the color of the background 
XC = the foreground color of the BL character. (With 
the space character [screen code 32] this doesn't 
matter, but if the background character shows up, 
it does.) 

40 POKE the background color and clear the screen. 

50 Set initial character movement and position values. 
Unlike the values above, these variables will be 
changed often by the program. They are set now 
only to establish the starting position and direction 
of the characters. 
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H = horizontal direction of movement (1 = right, 

-1 = left) 

V=vertical direction of movement (1 = down, 

-l = up) 

XH and XV = old horizontal and old vertical column 
and row numbers. (At the beginning of a particular 
movement, these hold the current position of the 
figure. This allows us to remember where the char¬ 
acter was so we can erase it there.) 

XP=old offset. This number is always XH+40*XV. It 
represents the number of bytes to count in from the 
start of screen memory and/or from the start of 
color memory to find the byte where the figure is. 
Then POKE the figure color into color memory plus 
XP and the figure character into screen memory plus 
XP The figure will now appear on the screen. 

100-190 Main Loop 

100 Check the timer (TI$). If enough time has passed, go 
get a random direction assignment at line 990. 

190 If both directions are zero, no movement will take 

place—go back to 990 and get new movement values 
until at least one of the direction variables is not zero. 

200-290 Movement Routine 

200 Assign the new horizontal position. (See the expla¬ 
nation of this formula after the program listing.) 

210 Assign the new vertical position. (See the explana¬ 
tion of this formula after the program listing.) 

220 Set the new offset (NP) of the figure byte from the 
start of screen and color memory. 

230 POKE the new color. Then erase the old character. 
Then POKE the new character. Then erase the old 
color. (The order is important. POKE commands take 
long enough that color changes will be visible, if only 
as a momentary flash. Therefore, no other statement 
should come between POKEing the figure into the 
new location and erasing it [POKEing BL] at the old 
character location.) 

240 Set the old-value variables, XP XH, and XV, to the 
new values. (When the next movement takes place, 
these variables will be used to erase the figure where 
we just put it.) 

290 Close the movement loop. 
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990 Random Direction Subroutine 

(This one-line routine randomly generates one of 
three numbers: -1, 0, and 1. The random number H 
then controls the direction of horizontal movement 
and the random number V controls the direction of 
vertical movement.) 

Program 5-1. POKE Movement Demonstration 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

20 SM=1024:CM=5 5 296 s EV=23:EH=38 s BV=1:BH=1s HN=40:VN 
=25 srem 99 

30 FG=87:BL=32 sFC=6:BC=15:XC=0 srem 224 

40 POKE 53281,BCSPRINT "{CLR}" srem 229 

50 H=1$V=0sXH=19sXV=llsXP=XH+40*XVsPOKE CM+XP,FCsP 
OKE SM+XP,FG srem 92 

100 IF VAL(TI$)>1 THEN GOSUB 990sTI$="000000" 

srem 113 

190 IF H=0 AND V=0 THEN GOSUB 990sGOTO 190srem 210 
200 NH=XH+H+HN*((XH>EH AND H=1)-(XH<BH AND H=-l)) 

srem 147 

210 NV=XV+V+VN*((XV>EV AND V=1)-(XV<BV AND V=-l)) 

srem 32 

220 NP=NH+NV*40 srem 98 

230 POKE CM+NP,FCsPOKE SM+XP,BLsPOKE SM+NP,FGsPOKE 
CM+XP,XC srem 134 

240 XP=NPsXH=NHsXV=NV srem 143 

290 GOTO 100 srem 101 

990 H=SGN(INT(RND(9)*3)-1)sV=SGN(INT(RND(9)*3)-l)s 
RETURN s rem 74 

The logic in lines 200 and 210. A row of variables and 
calculations like this can be puzzling, and since this formula 
eliminates a lot of IF-THENs and GOSUBs or GOTOs, it's 
worth understanding it and using it. 

The first part of line 200 is easy. We are setting the value of 
NH, the new horizontal position. It is equal to XH, the old 
position, plus H, the direction of movement. 

The rest of the line is devoted to checking to see if the new 
position is beyond the edge of the screen and, if it is, moving it 
to the opposite side of the screen. 

The math here depends on a quirk of the computer. When 
BASIC evaluates a relational expression (like X>Y or P = C or 
XX<25), the answer comes back as either true or false. If it is 
true, the answer is the number -1. If it is false, the answer is the 
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number 0. This is how BASIC checks for conditional state¬ 
ments like IF X = Y THEN 350. But by using the true = -1 and 
false=0 values, you can avoid the problems of using IE 

Look at the first of the tests: (XH>EH AND H = 1). If the 
old horizontal position (XH) is greater than the edge-of-screen 
value (EH) and the direction of movement is to the right 
(H = 1), this expression will evaluate to -1, or true. If either of 
the two conditions is false (either we are not beyond the right 
edge marker or the direction of movement is not to the right), 
the whole expression is false, and its value is 0. 

The same process takes place in the other expression, only 
this time we are testing the left edge of the screen. The expres¬ 
sion will be true (-1) if the old horizontal position is less than 
1 and if the direction of movement is leftward (H = -1). 

Now, these two expressions are within the larger expres¬ 
sion, with a minus sign between them. We are subtracting the 
second expression from the first expression. It is important to 
remember that they can't both be true. However, they can both 
be false, and in fact usually will be—most of the time, the 
figure will not be crossing an edge. If neither expression is 
true, the entire expression will have a value of zero. Since 40*0 
is 0, none of this has any effect on the rest of the line. NH will 
be equal to XH plus H plus zero. This is the usual result. 

However, if the figure is at the right-hand edge, moving 
rightward, the left expression (XH>EH AND H=1) will be 
true (-1). The right expression will therefore be false (0). The 
large expression will then have a value of -1 - 0, or — 1. We 
will multiply that by HN, which has a value of 40. Now the 
whole line is changed: NH now equals XH plus H plus 40 times 
-1 (which is, of course, the same as XH plus H minus 40). We 
will add 1 to the value of XH, but then we'll subtract 40 from it. 
The effect is to take the figure from column 39 to column 0 on 
the screen. It has wrapped around from the right-hand edge to 
the left-hand edge. 

If the figure is at the left-hand edge, moving leftward, 
then the right expression is true (-1) and the left one is false 
(0). Now the large equation is 0- (-1). Subtracting a negative 
number is the same as adding, so that the whole expression 
evaluates to 0+1, or 1. Now we are multiplying HN (40) by 1, 
so the result is 40. Since in this case XH was 0 and H was — 1, 
we are setting the value of NH to — 1 + 40, or 39—the number 
of the rightmost column on the screen. Again, the figure has 
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wrapped around. 

Line 210 uses exactly the same pattern. Only the actual 
values involved are different, since instead of columns 0 to 39, 
we are dealing with rows 0 to 24. 

Changing the ranges. You don't have to use the full 
screen. You can put the figure you're moving inside a smaller 
area of the screen just by giving new values to the boundaries. 
Program 5-2 does this. It is almost identical to Program 5-1. So 
we'll only need to list and explain the few lines that are 
changed. 

In the program setup, you'll notice that we eliminate 
wraparound by the simple method of changing HN and VN to 
1. Now, if the edge test comes out true, instead of moving 40 
columns or 25 rows in the opposite direction, we'll only move 
back one column or row. In effect, then, when the figure tries to 
move beyond an edge, it simply stays in the same row or 
column. 

We change the ranges just as easily, by giving new values 
to BV, BH, EV, and EH. Now when the program tests for the 
edge, it thinks the edge is in a different place, and acts accord¬ 
ingly. When you RUN the program, you'll see that the char¬ 
acter still moves around, but it often stops or slides along the 
edge of an invisible wall. 

Program 5*2. A Shrinking Screen 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

20 SM=1024;CM=55296:EV=18:EH=28:BV=6:BH=11:HN=1:VN 
=1 :rem 51 

100 IF VAL(TI$)>2 THEN GOSUB 990sTI$="000000" 

srem 114 

220 NP=NH+NV*40:IF NP=XP THEN GOSUB 990:GOTO 190 

srem 12 


Moving with PRINT 

The next program again starts with Program 5-1 and makes 
changes. There are more changes this time, however, since 
we'll be moving using PRINT statements instead of POKE 
statements. Therefore, the whole listing is included, though 
we'll only talk about the changes. 

Advantages of PRINT. The advantage of PRINT is speed. 
PRINT takes care of color assignments and cursor movements 
all at once. We've already seen how complex characters (trees 
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and ships) can be displayed instantly with PRINT statements. 
They can also be moved with PRINT statements, using the 
same principles. 

We will still keep track of new and old horizontal and 
vertical positions. However, instead of combining them into an 
offset which is added to the start of screen and color memory 
(NP), we'll use the NH and XH numbers with the TAB func¬ 
tion—the screen editor will TAB us to whatever column we 
specify. The NV and XV numbers will be indexes into an array 
V$(n), in which V$(0) is the HOME character (which takes us 
to the top row), V$(l) is HOME CURSOR-DOWN (which takes 
us to the second row), and each succeeding V$(n) string 
contains one more CURSOR DOWN. Then if we tell the 
computer to PRINT V$(9)TAB(11)FG$, it will PRINT the string 
FG$ at row 9, column 11. 

Disadvantages of PRINT. The main disadvantage of 
PRINT is scrolling. The can be an advantage, too, of course, as 
we'll see with a later program, but when you don't want the 
screen to scroll, you just can't PRINT in the last line.PRINTing 
in the last column can also cause odd things to happen on the 
screen. So as a general rule, when you're moving with PRINT 
you have to pretend that the rightmost column and bottom 
row don't exist. In effect, you shrink the screen just as we did 
with Program 5-2, only not as much. 

There are a couple of ways to hide the fact that the right 
column and bottom row aren't used. You can make the screen 
and border the same color—then the edge will be wherever 
you put it and no one will be the wiser. Or you can put a frame 
all the way around the screen—if you don't use column 0 and 
row 0 either, it won't look like a mistake that you aren't using 
column 39 and row 24. 

Notice the changes in value for EV EH, VN, and HN to 
eliminate the two unPRINTable columns. Line 30 sets up the 
array V$(n) to control vertical movement. 

Program 5-3. Moving with PRINT 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 DIM V$(23) :rem 107 

20 EV=22:EH=37 sBV=l:BH=1:HN=39;VN=24:FG?= n {BLK}X "s 
BL$="{BLK} ":BC=7 srem 124 
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30 V$(0)="{HOME}"sFOR 1=1 TO 23 :V$ (l)=V$ (i-l)+" 
{DOWN}"!NEXT srem 200 

40 POKE 53281,BCsPOKE 53280,BCsPRINT "{CLR}":rem 1 
50 H=1 sV=0sXH=19sXV=11:PRINT V$(XV)TAB(XH)FG$ 

srem 217 

100 IF VAL(TI$)>1 THEN GOSUB 990sTI$="000000" 

srem 113 

190 IF H=0 AND V=0 THEN GOSUB 990:GOTO 190srem 210 
200 NH=XH+H+HN*((XH>EH AND H=1)-(XH<BH AND H=-l)) 

srem 147 

210 NV=XV+V+VN*((XV>EV AND V=1)-(XV<BV AND V=-l)) 

srem 32 

220 PRINT V$(XV)TAB(XH)BL$V$(NV)TAB(NH)FG$srem 242 
240 XH=NHsXV=NV srem 210 

290 GOTO 100 srem 101 

990 H=SGN(lNT(RND(9)*3)-l)sV=SGN(INT(RND(9)*3)-l)s 
RETURN srem 74 

Little Boxes 

Program 5-4 introduces a new feature—multiple figure move¬ 
ment. Using the PRINT method, we'll put four figures on the 
screen and move them all. But they'll each remain in a separate 
area of the screen, as if each had its own little box. 

This program started with Program 5-3 and made 
changes—but enough changes that again the whole listing is 
included. Notice that all the movement control variables have 
been changed to arrays. The movement of figure FG$(0) is 
controlled by the variables NH(0), XH(0), H(0). The edges are 
also arrays, since each figure has its own miniscreen to work 
with: FG$(0) can move only within the area defined by EH(0), 
BH(0), EV(0), and BV(0); when it reaches one of those edges, it 
wraps around using the variables VN(0) and HN(0). 

The arrays are all set up in the routine starting at line 300. 
Figure 5-1 illustrates the screen arrangement. FG$(0), the white 
circle, stays in the upper-left comer; FG$(1), the black circle, 
stays in the upper-right; FG$(2), the reversed white circle, 
stays in the lower-left, and FG$(3), the reversed black circle, 
v stays in the lower-right. 

Notice that pairs of figures have borders in common. The 
two white figures, for instance, have the same horizontal 
edges, and the two black circle figures have the same hori¬ 
zontal borders. The two regular circles (0 and 1) have the same 
vertical edges, and the two reversed circles (2 and 3) have the 
same vertical borders. 
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Therefore, the setup routine from 300 to 390 uses loops 
and sets the boundaries using these pairs. 

Figure 5-1. Segmented Screen 



Program 5-4. Little Boxes 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 DIM V$(23),EV(3),EH(3),BV(3),BH(3),HN(3),VN(3), 
FG$(3),H(3),V(3) srem 110 

20 GOSUB 300sBL$=“{BLK} ":BC=5 srem 163 

30 V$(0)="{HOME}"sFOR 1=1 TO 23:V$(I)=V$(1-1)+" 

{DOWN}"s NEXT s rem 200 

40 POKE 53281,BCsPOKE 53280,BCsPRINT “{CLR}"srem 1 
50 GOSUB 990sFOR 1=0 TO 3SPRINT V$(XV(I))TAB(XH(I) 
)FG$(I)sNEXT srem 52 

100 FOR 1=0 TO 3 sIF VAL(TI$)>1 THEN GOSUB 990:TI$= 
"000000" srem 30 

190 IF H(I)=0 AND V(I)=0 THEN GOSUB 980:GOTO 190 

: rem 5 
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200 NH(I)=XH(I)+H(I)+HN(I)*((XH(I)>EH(I)AND H(l)=l 
)—(XH(l)<BH(l)AND H(I)=-1)) :rem 151 

210 NV(I)=XV(I)+V(I)+VN(I)*((XV(I)>EV(I)AND V(l)=l 
) — (XV(I)<BV(I)AND V(I)=-1)) :rem 36 

220 PRINT V$(XV(l))TAB(XH(I))BL$V$(NV(l))TAB(NH(l) 
)FG$(I) srem 244 

240 XH(I)=NH(I):XV(I)=NV(I) :rem 58 

290 NEXT:GOTO 100 srem 222 

300 FORI=0 T 01 :EV(I)=llsEV(I+2)=22sBV(I)=lsBV(I+2) 
=13:VN(I)=12:VN(1+2)=11:NEXT srem 200 

310 FORI=0 TO 2 STEP 2:EH(I)=18sEH(1+1)=37sBH(I)=1 
sBH(1+1)—21 srem 5 

320 HN(I)=1:HN(1+1)=1sNEXT srem 224 

330 FG$(0)="{WHT}Q":FG$(1) = "{BLK}Q":FG$(2) = ,, {WHT} 

{RVS}Q{OFF}":FG?(3)="{BLK}{RVS}Q{OFF}"srem 204 
340 FOR 1=0 TO 1:XV(I)=7:XV(1+2)=19:NEXT srem 253 
350 FOR 1=0 TO 2 STEP 2:XH(I)=10:XH(1+1)=30sNEXT 

srem 115 

390 RETURN srem 124 

980 H(I)=SGN(INT(RND(9)*5)—3)sV(I)=SGN(INT(RND(9)* 
5)-3)s RETURN srem 133 

990 FORJ=0 TO 3 s H(J)=SGN(INT(RND(9)*5)—3)sV(j)=SGN 
(INT(RND(9)*5)—3)sNEXTs RETURN srem 175 


Multiple Movements 

Single character animation can make a good game, without 
ever using a sprite—several of the games in this book work 
that way. However, usually in game programming on the 64, 
the player's figure will be a sprite. Individual character move¬ 
ment will then be used for computer-controlled opponents. 

If there is a single opponent figure, it might as well be a 
sprite, too. But many arcade games use a different principle— 
instead of a single smart opponent, they use many dumb 
opponents. The player is overwhelmed by numbers, not by 
speed or accuracy. Think of Asteroids, Space Invaders, Donkey 
Kong, and Donkey Kong Jr. The asteroids and aliens, barrels and 
eaters are not particularly fast or smart—their movements are 
predictable and easy to beat. What makes the games chal¬ 
lenging is that there are so many of them, coming at you from 
every direction. 

Program 5-5 puts ten figures on the screen and moves 
them in fairly predictable patterns. However, they aren't all the 
same patterns. Some move up and down, some move left and 
right. The same movement and edge-checking program we've 
used all along is again the basis of this program. 
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There are five pairs of characters. Both members of each 
pair start out in the same place on the screen, but one will 
move only horizontally, and the other will move only vertically. 
Since each pair starts in a different place, and since the hori¬ 
zontally moving figures have farther to travel than the verti¬ 
cally moving figures, the regular movement wouldn't 
necessarily be obvious during the middle of a game. Each indi¬ 
vidual character moves slowly—but if you were controlling a 
large sprite that had to get through them without touching any 
of them to pick up certain objects scattered about the screen, 
you'd think they were moving pretty fast! 

How the Program Works: 

Line Function 

10-40 Standard Setup 

50 Set initial screen positions. 

100-110 Vertical Movement Loop 

Figures 0-4 move only vertically. Therefore, there is 
never a need to check their horizontal position or 
movement. This loop handles only vertical move¬ 
ment, and if an edge is reached the program jumps to 
the subroutine at 400, which changes the direction 
variable DI(n) so the figures bounce off the walls. 
120-130 Horizontal Movement Loop 

Figures 5-9 move only horizontally, so only hori¬ 
zontal movements are checked. The direction varia¬ 
bles are changed at 450. 

300-390 Array Setup 

400-450 Reverse Direction Subroutines 

Program 5-5. Move Ten Figures 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix ], "Automatic Proofreader," before entering 
this program. 

10 DIM V$(23),FG$(9),XV(9),NV(9),XH(9),NH(9),Dl(9) 

:rem 117 

20 GOSUB 300 srem 117 

30 BL$=" ":BC=1 srem 195 

40 POKE 53281,BCsPOKE 53280,BCsPRINT "{CLR}":rem 1 
50 FOR 1=0 TO 9 sPRINT V$(NV(I))TAB(NH(I))FG$(I)sNE 
XT srem 202 

100 FOR 1=0 TO 4sNV(I)=NV(I)+DI(I)sIF NV(I)>23 OR 
{SPACE}NV(I)<0 THEN GOSUB 400 srem 130 
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110 PRINT V$(XV(l))TAB(NH(l))BL$V$(NV(l))TAB(NH(l) 
)PG$(I)sXV(I)=NV(I)sNEXT srem 94 

120 FOR 1=5 TO 9:NH(I)=NH(I)+DI(I)sIF NH(I)>38 OR 
{SPACE}NH(I)<0 THEN GOSUB 450 :rem 97 

130 PRINT V$(NV(I))TAB(XH(I))BL$V$(NV(I))TAB(NH(I) 
)FG$(I):XH(I)=NH(I)sNEXT srem 68 

140 GOTO 100 srem 95 

300 FOR 1=0 TO 4:NH(I)=3+1*8:NH(1+5)=NH(I):NV(I)=3 
+I*4;NV(l+5)=NV(I):NEXT srem 116 

310 FOR 1=0 TO 9:XV(I)=NV(I):XH(I)=NH(I)sNEXT 

srem 100 

320 V$(0)= ,, {HOME}"sFOR 1=1 TO 23 s V$ (I )=V$ (1-1) + " 
{DOWN}"sNEXT srem 250 

340 FG$(0)="{RED}Q"sFG$(1)="{PUR}Z"sFG$(2)="{BLK}A 
"sFG$(3 )="{GRN}§Bi"sFG$(4)="{BLUjX" srem 144 
350 FOR 1=0 TO 4sFG$(1+5)=FG$(l)sNEXT srem 242 
360 FOR 1=0 TO 9 STEP 2sDI(I)=1sDI(1+1)=-DI{I)sNEX 
T srem 22 

390 RETURN srem 124 

400 Dl(l)=-Dl(l)sNV(I)=XV(l)+Dl(I)sRETURN srem 181 
450 DI(I)=-DI(I)sNH(I)=XH(I)+DI(I)sRETURN srem 158 

Speed through Complication 

If this seems slow to you, remember that speed is largely an 
illusion in arcade games. We can make this routine seem 
much, much faster by slowing down the ten figures already on 
the screen, but adding two other characters that travel diago¬ 
nally at ten times the speed of the other characters. 

Program 5-6 does this. Four lines are added within each of 
the two movement loops — lines 105-108 and 125-128. These 
lines are loops themselves, which are carried out completely 
each time through the larger movement loops. This means that 
figures 10 and 11 both move every time any one of the other 
figures moves. Notice, too, that figures 10 and 11 always move 
both horizontally and vertically—the effect is that they move 
diagonally. They require their own rebound routines at 420 and 
470, and they are set up at lines 370 and 380. There are also 
changes from Program 5-5 in lines 10 and 50. 

Simple changes, really—but the effect is quite pro¬ 
nounced. Imagine the same program with redefined charac¬ 
ters, so that these are ants moving across a sidewalk, and the 
two fast ones are spiders. Or these are cars, and the two fast 
ones are speeders. Or balls, or fish, or whatever you want 
them to be. 

The technique of embedding one figure's movement inside 
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a loop that controls other figures is one we'll use again. We'll 
use it to control missiles in Chapter 13, for example, since 
you'll naturally want missiles to move faster than their targets. 

(Much of this program is identical to Program 5-5, Move 
Ten Figures. If you've already entered and SAVEd Program 
5-5, all you have to do is enter the new lines. These are: 10, 50, 
105-108,125-128,370, 380, 420, and 470.) 

Program 5-6. Varied Speeds 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 DIM V$(23),FG$(11),XV(11),NV(11),XH(11),NH(11), 
DI(9),DV(11),DH(11) :rem 38 

20 GOSUB 300 srem 117 

30 BIi$=" ”:BC=1 srem 195 

40 POKE 53281,BCsPOKE 53280,BCtPRINT ”{CLR}"srem 1 
50 FOR 1=0 TO 11:PRINT V$(NV(I))TAB(NH(I))FG$(I)sN 
EXT :rem 243 

100 FOR 1=0 TO 4:NV(I)=NV(I)+DI(I)sIF NV(l)>23 OR 

{SPACE}NV(I)<0 THEN GOSUB 400 srem 130 

105 FOR J=10 TO 11:NV(J)=NV(J)+DV(J):IF NV(j)>23 O 

R NV(J)<0 THEN GOSUB 420 srem 251 

106 NH(J)=NH(J)+DH(J)sIF NH(J)>38 OR NH(J)<0 THEN 

{SPACEjGOSUB 470 srem 179 

107 PRINT V$(XV(J))TAB(XH(J))BL$V$(NV(J))TAB(NH(J) 

)FG$(J) srem 253 

108 XH(J)=NH(J)sXV(J)=NV(J)sNEXT srem 186 

110 PRINT V$(XV(I))TAB(NH(I))BL$V$(NV(I))TAB(NH(I) 

)FG$(I)sXV(I)=NV(I)sNEXT srem 94 

120 FOR 1=5 TO 9sNH(I)=NH(I)+DI(I)sIF NH(l)>38 OR 
{SPACE}NH(I)<0 THEN GOSUB 450 srem 97 

125 FOR J=10 TO 11sNH{J)=NH(J)+DH(J)sIF NH(J)>38 O 

R NH(J)<0 THEN GOSUB 470 srem 194 

126 NV(J)=NV(J)+DV(J)sIF NV(J)>23 OR NV(J)<0 THEN 

{SPACE}GOSUB 420 srem 240 

127 PRINT V$(XV(J))TAB(XH(J))BL$V$(NV{J))TAB{NH(J) 

)FG$(J) srem 255 

128 XH(J)=NH{J)sXV(J)=NV(J)sNEXT srem 188 

130 PRINT V$(NV(I))TAB(XH(I))BL$V$(NV(I))TAB(NH(I) 

)FG$(I)sXH(I)=NH(l)sNEXT srem 68 

140 GOTO 100 srem 95 

300 FOR 1=0 TO 4sNH(I)=3+I*8sNH(1+5)=NH(I)sNV(I)=3 
+I*4sNV(I+5)=NV(l)sNEXT srem 116 

310 FOR 1=0 TO 9 s XV(I)=NV(I)s XH(I)=NH{I)5 NEXT 

srem 100 

320 V$(0)="{HOME}"sFOR 1=1 TO 23sV$(l)=V$(l-l)+" 
{DOWN}"sNEXT srem 250 
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340 FG$(0)="{RED}Q":FG$(1)="{PUR} Z ":FG$( 2) = "{BLK}A 
":FG$(3)="{GRN}gB8"sFG$(4)="{BLU}X" srem 144 
350 FOR 1=0 TO 4:FG$(1+5)=FG$(I)sNEXT srem 242 

360 FOR 1=0 TO 9 STEP 2:DI(1)=1:DI(1+1)=-DI(I)sNEX 
T s rem 22 

370 FOR 1=10 TO 11sNH(I)=8sNV(I)=19:XV(I)=19:XH(I) 
=8:FG$(I)="i2i+"sNEXT srem 108 

380 DV(10)=1:DV(llT=-l:DH(10)=-lsDH(11)=1 srem 113 
390 RETURN srem 124 

400 DI(I)=-DI(I)sNV(I)=XV(1)+DI(I)sRETURN srem 181 
420 DV{J )=-DV(J)sNV( J)=XV(J)+DV(J)sRETURN srem 227 
450 DI(I)=-DX(I)sNH(I)=XH(I)+DI(I) sRETURN srem 158 
470 DH(J)=—DH(J)sNH(J)=XH(J)+DH(J)sRETURN srem 162 

Smooth Movement 

The movement in all these routines has been jerky. This is 
because we are moving from one character position to the next, 
with nothing in between. If you want smooth movement, all 
you have to do is create custom characters that, in combina¬ 
tion, represent the stages of movement. For instance, if you 
were going to PRINT the leftward movement of a unicycle, you 
might have one character that contained the whole unicycle. 
The next step would be two characters: the left one would 
contain one-fourth of the unicycle, while the right one 
contained three-fourths. The next pair would each contain 
half; the next half would show the movement three-fourths 
complete; and at last you're back to the starting position. 

On some computers, this is the only way to get smooth 
movement. On the 64, however, you have sprites. They move 
one dot at a time, so that their animation is very smooth. 

When you need the effect of smooth animation, sprites will be 
your first choice. 

Fast but Dumb: Moving in a Group 

Often, though, you won't need smoothness so much as quan¬ 
tity. There is almost no limit to the number of characters you 
can have moving around on the screen, but there is a limit to 
the number of sprites you can have. 

If your figures move independently, as they have so far, 
you have to expect them to move fairly slowly. Twelve on the 
screen at the same time was none too quick in BASIC. Even 
when they only move in one line, either horizontally or verti¬ 
cally, as long as you have to do edge-checking for each char¬ 
acter independently, you are not going to have speed. 
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There's no law that says figures have to move indepen¬ 
dently, however. If you put the characters together in a group 
and move them with a single control loop, you can gain back a 
lot of speed. Think.of the rows of descending aliens in Space 
Invaders. The game was not easy, though its day in the arcades 
has passed; in BASIC you can program the same sort of move¬ 
ment pattern. 

Program 5-7 shows something like the Space Invaders 
movement pattern. First, rows of aliens are set up, using the 
playing card symbols (hearts, spades, clubs, and diamonds) 
and a few other symbols from the built-in graphics character 
set. Each row begins with a CURSOR DOWN and contains 
exactly enough characters, including blanks, to fill a 40- 
character row. This way, the entire block can be PRINTed in 
sequence, very quickly. All that needs to change is the starting 
point of the first string; the rest follow in sequence. 

The movement is controlled in two FOR-NEXT loops. 

First, a positive loop takes the block of characters from left to 
right. Then a negative loop (STEP -1) takes the group from 
right to left again. When they reach the left-hand edge, the 
screen is cleared and the starting position for the two loops is 
dropped down one line. 

Later, in Chapter 13, we'll use this program as the starting 
point for "Card Invaders," a target shooting game that demon¬ 
strates missiles. 

Program 5-7. Moving as a Group 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 DIM FG$(6),F$(6),V$(9) srem 192 

20 GOSUB 300 srem 117 

30 BL$=" ":BC=1 srem 195 

40 POKE 53281,BCsPOKE 53280,BCsPRINT "{CLR}"srem 1 
100 FOR X=0 TO 8:PRINT "{CLR}" srem 182 

110 FOR 1=0 TO 15sPRINT V$(X)TAB(I)ysFOR J=0 TO 6s 
PRINT FG$(J)? sNEXTsNEXT srem 191 

120 F0RI=14 TO 0 STEP-1sPRINT V$(X)TAB(I)?sFORJ=0 
CSPACElTO 6 sPRINT FG$(J);sNEXTsNEXT srem 89 

130 NEXT X srem 43 

140 GOTO 100 srem 95 

300 F$(0)="Q"sF$(1)="S"sF$(2)="A"sF$(3)="Z"sF$(4)= 
"X"sF$(5)="{RVS} TOFF}“s F$(6)="£" srem 92 

310 FORI=0 TO 6sFG$(I)="{DOWN}" srem 33 
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320 FORJ=0 TO 7 :FG$ ( I)=FG$ (I) + " "+F$(l)+" "sNEXT 

:rem 160 

330 FG$(I)=FG$(I)+"{16 SPACES}":NEXT srem 81 

340 V$(0)="{HOME} ,, sFOR 1=1 TO 9 sV$ (I )=V$ (1-1) + " 

{DOWN}":NEXT srem 208 

390 RETURN srem 124 


Animation 

In Chapter 4 we created custom characters so we could get 
exactly the shape we wanted on the screen. In this chapter 
we've moved characters around on the screen. Now it's time to 
put those together, and change the shape on the screen in order 
to make figures more realistic, which will help make the game 
world more real. 

The basic technique of animation is to switch from one 
shape to another to give the illusion of reality within the figure. 
The two (or more) shapes must be different, or no movement 
will seem to take place. However, the shapes must also be 
similar enough that the player will realize that they are meant 
to represent the same figure. 

This balance between similarity and difference requires 
some planning and thought. An explosion, for instance, radi¬ 
cally changes the shape of the figure, but you can get away 
with it because it happens in the same place as the figure that 
exploded, and because (usually) the player has seen the event 
that caused the explosion. Even so, the most effective explo¬ 
sion is one in which the actual shape of the exploding space¬ 
ship can be seen to break apart, with individual pieces floating 
away. 

The player must always be able to recognize the figure, 
either by its shape or by its location. You can transform the 
shape as long as you make it clear that it's really the same 
object. Or you can move the object as long as you keep the 
shape clearly similar. 

Complex Characters and Direction Changes 

Let's start with a fairly simple animation problem. Program 5-8 
creates a dragon which will move back and forth across the 
screen. The dragon is a complex character. It was drawn facing 
left. This is fine, as long as the dragon is moving left. But we 
want it to go back and forth across the screen, from one edge 
to the other. We need the dragon to face right, too. 
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The easiest method is to create characters representing the 
left-facing dragon, and other characters representing the right¬ 
facing dragon. You can create both dragons separately on 
graph paper, or you can use the method in this program. The 
routine from 300 to 370 READs the same DATA for both the 
left-facing dragon and right-facing dragon. But as it READs the 
DATA for the right-facing dragon (lines 340-370), it first flips 
every byte of every character pattern. This is time-consuming 
in the setup, but it does make sure that the right-facing dragon 
is an exact mirror image of the left-facing one. 

The two complex characters, one for either direction, are 
set up as a two-element string array, DR$(n), in lines 400-430. 
Each dragon image consists of three rows of four characters 
each. Between the rows are the CURSOR DOWN and 
CURSOR LEFT instructions to get from the end of one row to 
the start of the next. There is a crucial difference between the 
handling of the two strings. The left-moving dragon has a 
blank space at the right-hand end of each row of the complex 
character. The right-moving dragon has a blank space at the 
left-hand edge of each row. Since the dragon will always move 
one column at a time, this column of blanks will erase the 
column of characters left behind when the dragon moved. It 
saves our having to erase the old image separately, and helps 
to reduce flicker. 

If the dragon were to be moved up and down, too, you 
would need to add rows of blanks that will be PRINTed behind 
the character, depending on its direction of movement. It 
would be possible to create upward- and downward-flying 
images, too. 

You might also notice that in the main movement loop, 
the rightward movement loop goes from 0 to 35, and the left¬ 
ward STEPs backward (-1) from 35 to 0. Even though the 
screen is 39 columns wide, 35 is the rightmost position we can 
use. This is because the dragon is four characters wide, and the 
string is positioned from its upper left-hand comer. (We are 
also not using column 39, as is usual with PRINT movement 
routines.) 

If you'd like to see how the characters are actually set up, 
first RUN the program, then press, RUN/STOP-RESTORE. The 
screen will return to blue and the regular character set. Then 
type GOTO 100. Now you'll see the rows of letters moving 
across the screen. 
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When the program runs, the dragon's movement is far 
more realistic, because now it faces the direction it is moving. 

It still isn't full animation since it doesn't seem to move, but it's 
an improvement over having only one image. 

Program 5-8. Back and Forth Dragon 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

10 DIM DR$(1) srem 119 

20 CC=14sCH=CC*1024 srem 3 

30 PRINT ”£131CLR}":POKE 53272,(PEEK(53272)AND 2 
40)OR CC:POKE 53281,0 srem 2 

40 GOSUB 300sGOSUB 400 srem 197 

50 SPEED=99 srem 133 

97 REM srem 84 

98 REM MOVE LEFT TO RIGHT srem 216 

99 REM srem 86 

100 FOR 1=0 TO 35sPRINT DOWN$TAB(I)DR$(1) srem 9 

110 FOR WA=0 TO SPEEDSNEXTsNEXT srem 132 

117 REM srem 125 

118 REM MOVE RIGHT TO LEFT srem 1 

119 REM srem 127 

120 FOR 1=35 TO 0 STEP -1sPRINT DOWN$TAB(I)DR$(0) 

srem 164 

130 FOR WA=0 TO SPEEDSNEXTsNEXT srem 134 

140 GOTO 100 srem 95 

297 REM srem 134 

298 REM MAKE MONSTER SET srem 185 

299 REM srem 136 

300 FOR 1=0 TO 11sT=I*8sFOR J=CH+T TO CH+T+7 

srem 108 

310 READ NsPOKE J,NsNEXTsNEXT srem 29 

317 REM srem 127 

318 REM MAKE MIRROR-IMAGE SET srem 245 

319 REM srem 129 

320 RESTORESFOR H=0 TO 8 STEP 4sFOR 1=0 TO 3sFOR J 

=0 TO 7 srem 57 

330 T=CH+184-{((I+8-H))*8)+J srem 146 

337 REM srem 129 

338 REM BYTE-FLIPPING ROUTINE srem 98 

339 REM srem 131 

340 READ NsFOR K=0 TO 7sN=N*2 srem 35 

350 IF N>255 THEN W=W+2fKsN=N-256 srem 76 

360 NEXT KsPOKE T,WsW=0sNEXTsNEXTsNEXT srem 204 

370 FOR I=256+CH TO 263+CHsPOKE I,0sNEXT IsRETURN 

srem 56 

397 REM srem 135 
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398 REM SET UP STRINGS :rem 67 

399 REM srem 137 

400 DOWN$="{HOME}{16 DOWN}" srem 148 

410 DR$(0)="@ ABC {DOWN}{5 LEFT}DEFG {DOWN}{5 LEFT} 

HIJK " srem 215 

420 DR$(1)=" LMNO{DOWN}{5 LEFT} PQRS{DOWN}{5 LEFT} 
TUVW " srem 105 

430 RETURN srem 119 

497 REM srem 136 

498 REM DATA FOR DRAGON srem 69 

499 REM srem 138 

500 DATA 0,0,0,1,15,28,8,9 srem 229 

510 DATA 16,48,240,152,248,124,206,135 srem 75 

520 DATA 8,132,70,39,55,55,55,119 srem 95 

530 DATA 0,0,0,192,128,128,192,248 srem 130 

540 DATA 0,0,2,1,5,2,0,0 srem 113 

550 DATA 3,7,15,30,30,190,95,15 srem 236 

560 DATA 175,159,255,96,0,0,0,128 srem 91 

570 DATA 240,240,248,255,48,0,2,194 srem 188 

580 DATA 0,0,4,11,1,2,0,0 srem 164 

590 DATA 23,27,61,224,0,0,12,19 srem 230 

600 DATA 241,255,254,248,225,98,194,161 srem 144 

610 DATA 226,49,25,50,194,9,21,226 srem 140 
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Character Set Flipping 

To create much more realistic movement, we need something 
that will change the shapes far more often than just when the 
figure reaches the edge of the screen and changes direction. 

You could create two figures the way we did with the dragon, 
and switch back and forth between them each time it is 
PRINTed. This would be fairly simple—you could do it by 
PRINTing the array with a toggle switch variable, like this: 

K = -(K=0):PRINT FG$(K) 

Every time through the loop, the variable K will switch from 0 
to 1 or from 1 to 0. That way you will PRINT alternate figure 
strings. 

This is not a bad method, but it can require an awful lot of 
programming to set up all the string arrays. And if you try to 
do it with more than one or two characters on the screen, 
you'll find that your program slows down unbearably. Worst of 
all, any character you animate using this method must be 
tracked constantly through all its movements. This means your 
loops will get quite long, and movement will be slow. You have 
to rePRINT or rePOKE every animated character, every time! 
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Fortunately, there is a way to animate entire screen 
displays, with hundreds of characters at once—and it only 
takes a single POKE each time through the main loop. Not a 
single POKE for each character—a single POKE for the entire 
screen. Like all special effects, it takes some setting up—but 
it's less time-consuming than setting up dozens of string arrays 
and tracking them all over the screen. The effect can be 
dazzling, without costing your game any speed during play. 

The technique is character set flipping. You start out by 
setting up two (or more) custom character sets. One might 
start at the 12K boundary and the other at the 14K boundary. 
Any characters that you don't want to animate must be 
contained in both sets, exactly alike. Any characters that you do 
want to animate must be different in the two sets. Then you 
POKE a character set instruction into location 53272 each time 
through the loop, alternating between the two sets. 

When you change that single pointer at 53272, the effect is 
instantaneous. Every character that is different in the two sets 
changes at once; and every character that is the same in both 
sets remains the same. This demonstration program shows the 
basic technique. Only two custom characters are different 
between the two character sets. So those two characters are the 
only ones that seem to move. The other characters on the 
screen give no sign that their patterns are coming from some¬ 
where else. The illusion of movement is complete. And it's so 
fast that ilyou-don't have a delay loop in the program, the 
animation will turn into a blur. 


Program 5-9. Two Character Sets 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 


5 T=160 :rem 93 

10 DIM CC(1),CH(1),CB(1) srem 175 

15 CC(0)=12 sCC(1)=14 srem 241 

20 FOR 1=0 TO 1:CH(I)=1024*CC(I):CB(I)=(PEEK(53272 
)AND 240)OR CC(I):NEXT srem 131 

25 GOSUB 1100 srem 169 

30 FOR 1=0 TO IsFOR J=27 TO 28sFOR K=0 TO 7 

srem 165 

40 READ ASPOKE CH(I)+8*J+K,AsNEXT8NEXTsNEXT 

srem 116 

100 X$="£ [£[£[£[£[ "sR$="- 

WATCH THE CHANGES-" srem 129 


s rem 


123 





Getting Things Moving 


105 PRINT "{HOME}"?sFOR 1=0 TO 11sPRINT X$X$R$sNEX 
T s rem 63 

110 FOR 1=0 TO 1:POKE 53272,CB(I):FOR J=0 TO T:NEX 
TsNEXT:GOTO 110 srem 128 

1100 POKE 56334,PEEK(56334)AND 254:POKE 1,PEEK(1)A 
ND 251 srem 227 

1110 FOR 1=0 TO 1:RM=53248-CH(I) srem 162 

1120 FOR J=CH(I) TO CH(I)+511sPOKE J,PEEK{J+RM)sNE 
XTsNEXT srem 60 

1130 POKE 1,PEEK(1) OR 4sP0KE 56334,PEEK(56334)OR 
{SPACE}1 srem 180 

1140 RETURN srem 166 

1300 DATA 0,0,3,3,3,3,0,0 srem 158 

1310 DATA 0,12,18,34,36,24,0,0 srem 165 

1320 DATA 192,192,0,0,0,0,192,192 srem 68 

1330 DATA 0,0,48,72,68,36,24,0 srem 183 


Movement and Animation Together 

Now let's look at this with moving figures. Notice that the 
animation requires no tracking whatsoever, and no arrays. 
Once the two sets are in memory, it is just a single POKE each 
time through the movement loop. It makes for a much more 
interesting display than our earlier screens. 

Program 5-10. Two Sets Animation 

1 T=3 srem 245 

5 POKE 53281,7sP0KE 53280,7sPRINT "i23 n srem 56 

10 DIM CC(1),CH(1),CB(1),S$(23),A$(T),X(T),Y(T),XD 
(T),YD(T) srem 108 

15 CC(0)=12sCC(1)=14 srem 241 

18 REM srem 77 

19 REM SET UP TWO CHARACTER SETS srem 165 

20 FOR 1=0 TO lsCH(l)=1024*CC<I)sCB(I)=(PEEK(53272 

)AND 240) OR CC(I ) sNEXT srem 131 

30 FOR 1=0 TO IsFOR J=27 TO 29sFOR K=0 TO 7 

srem 166 

40 READ As POKE CH(I)+8*J+K,AsNEXTsNEXTsNEXT 

srem 116 

50 FOR 1=0 TO IsFOR J=256 TO 263sPOKE CH(l)+J,0sNE 
XTsNEXT srem 170 

58 REM srem 81 

59 REM DEFINE CURSOR MOVEMENTS srem 153 

60 GOSUB 1100 srem 168 

68 REM srem 82 

69 REM SET STARTING POSITIONS srem 115 

70 FOR 1=0 TO TsGOSUB 940 sA$(I )=CHR$ ( 91+R) sNEXTsX$ 

=s" " srem 177 
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75 FOR 1=0 TO TsGOSUB 950:X(l)=R:GOSUB 960:Y(l)=R: 

NEXT srem 161 

80 FOR 1=0 TO TsGOSUB 980:XD(I)=RsGOSUB 980sYD(l)= 
RsNEXT srem 42 

90 PRINT "{CLR}" srem 205 

98 REM srem 85 

99 REM MAIN MOVEMENT LOOP srem 32 

100 FOR 1=0 TO TsK=-(K=0) srem 29 

108 REM srem 125 

109 REM CHECK FOR EDGES srem 43 

110 IF X(I)<1 OR X(I)>37 THEN GOSUB 300 srem 253 

120 IF Y(I)<1 OR Y(I)>22 THEN GOSUB 320 srem 252 

123 REM srem 122 

124 REM ERASE OLD POSITIONS srem 146 

125 PRINT S$(Y(I))TAB(X(I))X$ srem 118 

128 REM srem 127 

129 REM SET NEW POSITION VALUES srem 155 

130 X(I)=X(I)+XD(I)sY(I)=Y(I)+YD(I) srem 213 

138 REM srem 128 

139 REM PRINT AT NEW POSITIONS srem 85 

140 PRINT S$(Y(I))TAB(X(I))A$(I) srem 246 

148 REM srem 129 

149 REM ANIMATE BY SWITCHING SETS srem 11 

150 POKE 53272,CB(K)sNEXT srem 142 

160 GOTO 100 srem 97 

298 REM srem 135 

299 REM REBOUND FROM SIDE srem 240 

300 XD(I)=—XD(I) srem 105 

303 REM :rem 122 

304 REM SET REBOUND DIRECTION srem 23 

305 IF(Y(I)>0)AND(Y(I)<38) THEN ON YD(I)+2 GOSUB 9 

90,980,970 sYD(I)=R srem 178 

310 RETURN srem 116 

318 REM srem 128 

319 REM REBOUND FROM TOP OR BOTTOM srem 45 

320 YD(I)=—YD(I) srem 109 

323 REM srem 124 

324 REM SET REBOUND DIRECTION srem 25 

325 IF(X(I)>0)AND(X(I)<23) THEN ON XD(I)+2 GOSUB 9 

90,980,970 sXD(I)=R srem 170 

330 RETURN srem 118 

938 REM srem 136 

939 REM RANDOMIZE CHARACTER srem 191 

940 R=INT(3*(RND(9)))sRETURN srem 158 

948 REM srem 137 

949 REM SET RANDOM STARTING POSITIONS srem 107 

950 R=1+INT(RND(9)*36)sRETURN srem 224 

960 R=1+INT(RND(9)*21)sRETURN srem 219 

968 REM srem 139 
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969 REM RANDOMIZE REBOUND DIRECTION srem 229 

970 R=INT(2*RND(9));RETURN srem 79 

980 R=INT(2*RND(9)):IF R=0 THEN R=-l srem 218 

985 RETURN srem 134 

990 R=—INT(2*RND(9))sRETURN srem 126 

1098 REM srem 182 

1099 REM SET UP CURSOR POSITIONS srem 238 

1100 S$(0)="{HOME}"sFOR 1=1 TO 23sS$(I )=S$(1-1)+" 

{DOWN}"sNEXTsRETURN srem 56 

1998 REM srem 191 

1999 REM DATA FOR CHARACTER SET 1 srem 107 

2000 DATA 0,66,60,60,60,60,66,0 srem 224 

2010 DATA 24,24,36,36,66,66,129,129 srem 191 

2020 DATA 0,12,18,34,68,72,48,0 srem 232 

2998 REM srem 192 

2999 REM DATA FOR CHARACTER SET 2 srem 109 

3000 DATA 0,60,126,126,126,126,60,0 srem 161 

3010 DATA 24,24,24,24,36,36,36,36 srem 78 

3020 DATA 0,48,72,68,34,18,12,0 srem 233 


Here is the same routine, but with an improved illusion of 
fast movement. Instead of moving every character each time 
through the movement loop, a random number is generated, 
which points to one character. That character is moved, and no 
others. This means that sometimes a single character can move 
in a burst of speed, while at other times it can rest. The unpre¬ 
dictability makes the movement more exciting to watch. And 
with the animation going on constantly, the characters that 
aren't moving from place to place still seem to be "alive." 

Program 5-11. Two Sets Random 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 

1 t= 9 srem 251 

5 POKE 53280,9 sPOKE 53281,9sPRINT "{WHT}"srem 172 

10 DIM CC(1),CH(1),CB(1),S$(23),A$(T)<X(T),Y(T),XD 
(T),YD(T) srem 108 

15 CC(0)=12sCC(1)=14 srem 241 

18 REM srem 77 

19 REM SET UP TWO CHARACTER SETS srem 165 

20 FOR 1=0 TO 1sCH(I)=1024*CC(I)sCB(I)=(PEEK(53272 

)AND 240)OR CC(I)sNEXT srem 131 

30 FOR 1=0 TO IsFOR J=27 TO 29sFOR K=0 TO 7 

srem 166 

40 READ AsPOKE CH(l)+8*J+K,AsNEXTsNEXTsNEXT 

srem 116 
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50 FOR 1=0 TO IsFOR J=256 TO 263sPOKE CH(I)+J,0sNE 
XT:NEXT srem 170 

58 REM srem 81 

59 REM DEFINE CURSOR MOVEMENTS srem 153 

60 GOSUB 1100 srem 168 

68 REM srem 82 

69 REM SET STARTING POSITIONS srem 115 

70 FOR 1=0 TO TsGOSUB 940sA$(I)=CHR$(91+R)sNEXTsX? 

=" " srem 177 

75 FOR 1=0 TO TsGOSUB 950sX(I)=RsGOSUB 960sY(l)=Rs 
NEXT srem 161 

80 FOR 1=0 TO TsGOSUB 980sXD(I)=RsGOSUB 980sYD(l) = 

RsNEXT srem 42 

90 PRINT "{CLR}" srem 205 

98 REM srem 85 

99 REM MAIN MOVEMENT LOOP srem 32 

100 K=-(K=0)sI=INT((T+1)*RND(9)) srem 228 

108 REM srem 125 

109 REM CHECK FOR EDGES srem 43 

110 IF X(I)<1 OR X(l)>37 THEN GOSUB 300 srem 253 

120 IF Y(l)<1 OR Y(I)>22 THEN GOSUB 320 srem 252 

123 REM srem 122 

124 REM ERASE OLD POSITIONS srem 146 

125 PRINT S$(Y(I))TAB(X(I))X$ srem 118 

128 REM srem 127 

129 REM SET NEW POSITION VALUES srem 155 

130 X(I)=X(I)+XD(i)sY(l)=Y(I)+YD(I) srem 213 

138 REM srem 128 

139 REM PRINT AT NEW POSITIONS srem 85 

140 PRINT S$(Y(I))TAB(X(I))A$(I) srem 246 

148 REM srem 129 

149 REM ANIMATE BY SWITCHING SETS srem 11 

150 POKE 53272,CB(K) srem 21 

160 GOTO 100 srem 97 

190 GOTO 100 srem 100 

298 REM srem 135 

299 REM REBOUND FROM SIDE srem 240 

300 XD(I)=-XD(I) srem 105 

303 REM srem 122 

304 REM SET REBOUND DIRECTION srem 23 

305 IF(Y(I)>0)AND(Y(I)<38) THEN ON YD(I)+2 GOSUB 9 

90,980,970 sYD(I)=R srem 178 

310 RETURN srem 116 

318 REM srem 128 

319 REM REBOUND FROM TOP OR BOTTOM srem 45 

320 YD(I)=-YD(I) srem 109 

323 REM srem 124 

324 REM SET REBOUND DIRECTION srem 25 

325 IF(X(I)>0)AND(X(I)<23) THEN ON XD(l)+2 GOSUB 9 

90,980,970 sXD(I)=R srem 170 
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330 RETURN :rem 118 

938 REM srem 136 

939 REM SET RANDOM CHARACTER VALUES srem 147 

940 R=INT(RND(9)*3):RETURN srem 77 

948 REM srem 137 

949 REM SET RANDOM STARTING POSITIONS srem 107 

950 R=1+INT(RND(9)*36)sRETURN srem 224 

960 R=1+INT(RND(9)*21)sRETURN srem 219 

968 REM srem 139 

969 REM RANDOMIZE REBOUND DIRECTION srem 229 

970 R=INT(2*RND(9))sRETURN srem 79 

980 R=INT(2*RND(9))sIF R=0 THEN R=-l srem 218 

985 RETURN srem 134 

990 R=—INT(2*RND(9))sRETURN srem 126 

1098 REM srem 182 

1099 REM SET UP CURSOR POSITIONS srem 238 

1100 S$(0)="{HOME}"sFOR 1=1 TO 23:S$(I)=S$(1-1)+" 

{DOWN}"s NEXT s RETURN s rem 5 6 

1998 REM srem 191 

1999 REM DATA FOR CHARACTER SET 1 srem 107 

2000 DATA 0,66,60,60,60,60,66,0 srem 224 

2010 DATA 24,24,36,36,66,66,129,129 srem 191 

2020 DATA 0,12,18,34,68,72,48,0 srem 232 

2998 REM srem 192 

2999 REM DATA FOR CHARACTER SET 2 srem 109 

3000 DATA 0,60,126,126,126,126,60,0 srem 161 

3010 DATA 24,24,24,24,36,36,36,36 srem 78 

3020 DATA 0,48,72,68,34,18,12,0 srem 233 
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Moving die Entire Screen 

There is still another technique that is used in games like 
Scramble, Cobra, Defender, and Zaxxon —the scrolling screen. 

The player-figure is a craft of some kind—a rocket, a heli¬ 
copter—and it seems to be moving over a landscape of obsta¬ 
cles and enemies. Actually, the player-figure has only limited 
movement, if any. Often the player-figure stays in one place, 
but seems to be moving because the screen display "moves" 
behind it. 

This technique is called scrolling. It's as if you were filming 
an old-time western, with the hero sitting on a mechanical 
horse while a long painting is unrolled at one end and wound 
up at the other, so that he seems to be passing by the rocks and 
trees and mountains. To the observer, limited by what can be 
seen on the screen, it's impossible to tell which is moving, the 
hero or the background. 

Screen movement is programmed on the 64 exactly the 
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way that a character is moved—the old display is replaced by a 
new display that is only slightly different from the old one. 
However, the number of bytes involved—1000 every time you 
scroll—is far too many to handle screen scrolling in BASIC. 
Remember how long it takes to copy 64 characters from the 
ROM set into another area of memory? Now imagine going 
through that long a delay each time the screen scrolls. 

Scrolling—especially fine scrolling—requires machine 
language to be effective on the 64. 

With one exception. There is a built-in machine language 
scrolling routine. It works only in one direction, but it is very 
fast. That is the built-in scrolling feature when you try to do a 
CURSOR DOWN on the bottom line of the screen. The whole 
display jumps up one row. Instantly. Once again, using PRINT, 
you can get machine language speed in your BASIC program. 

Program 5-12 combines animation with scrolling and char¬ 
acter movement to give us the basis of a scrolling space game. 
The program is based on the random starfield generating 
program from Chapter 3, but now it uses custom characters for 
the large and small stars. By flipping character sets, it makes 
the small stars twinkle and the large stars pulsate. There is also 
a starship that has animated exhaust coming out of it, and a 
space station that spins rapidly. 

BASIC scrolling. At the beginning of the main loop, the 
program checks for the value of TI$, the built-in timer feature 
of 64 BASIC. If enough time has passed since the last time the 
screen scrolled, the program jumps to a scrolling routine at 
line 600. 

The actual scrolling is easy. The variable M$ contains 
exactly enough CURSOR DOWN characters to scroll the screen 
one line. Just PRINT M$, and the whole screen moves up a 
line. 

The problem is that the top line of stars now disappears, 
and the bottom row of the screen is blank. We have to have a 
way of putting random star patterns on that new line at the 
bottom, so that the starfield doesn't empty out. 

New random lines. If we generated a new line of stars by 
doing 40 RND functions, one for every character position on 
the line, we would lose all the speed of scrolling—we'd have a 
long delay waiting for the new line to fill up. 

There is a way around it, however. At lines 400-420, 
during the program setup, we created the string T$. T$ 
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consists of the maximum number of characters possible in a 64 
string—255 of them. They are randomly generated, with more 
blanks likely than stars, and more small stars than large stars, 
just like the starfield. 

Now when the screen scrolls, we'll PRINT a 40-character 
section of that long randomly generated string. And we'll 
make each new line different by randomly selecting the starting 
point of the section we'll PRINT. That means we only generate 
one random number each time the screen scrolls, and then 
PRINT using a MID$ section starting at the position of the 
random number we generated. The random number has to be 
at least 1 and no larger than the length of the string minus 40. 

Increasing difficulty. For the first time, we can start 
building difficulty levels into a game program. At first, the 
interval between scrolls is long, but we can decrease it a tiny 
bit each time we scroll, until the new lines are appearing quite 
rapidly. This will make the game harder and harder. 

Also, we can make it so that at higher levels, the screen 
will scroll more than one line at a time. All we have to do is 
PRINT an 80-character section of the string instead of a 40- 
character section. Now two lines will jump up. This program 
includes both features. It will seem to be moving slowly when 
it starts, but if you watch patiently you'll see it pick up speed 
until it flies along. As each new difficulty level comes, the star- 
ship will change colors. Also, every now and then a space 
station will be POKEd onto the screen at a random position in 
the new line. 

"Moving" a stationary figure. The starship on the screen 
actually does not move, but we still have to provide a move¬ 
ment routine for it. Why? Because when the screen scrolls, the 
starship character will scroll with it. If we were using a sprite, 
of course, it would not happen—but we aren't using sprites 
yet. So each time the screen scrolls, the starship character is 
erased (replaced by whatever was under it), the screen is 
scrolled, and the starship is POKEd back into its old location. 
Color memory also has to be erased and POKEd. Even though 
the starship is still at exactly the same position in memory, it 
seems to be moving through the stars. 

Reconfigured video memory. This program relocates 
video memory, putting the new video block at 32768. This is 
the same 16K section of RAM where BASIC itself sits, using the 
upper 8K. So two character sets and screen memory will both 
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be located in the lower 8K of the new video block. 

You'll notice the difference at once, because a strange 
group of odd-looking characters will appear on the screen as 
soon as you RUN the program. They look odd because the 
VIC-II is now looking for character memory in a different 
block, and the character set isn't there. Later, just before the 
new screen display is created, they'll turn to garbage again. 

The only problem with this comes at the end of the 
program. If you stop the program with RUN/STOP-RESTORE, 
you'll think your computer has gone crazy. You'll type, but 
instead of the letters you typed, you'll see completely unre¬ 
lated characters—or no characters at all. This is because even 
though RUN/STOP-RESTORE sets the video block back to 
normal, it doesn't tell BASIC where screen memory is. BASIC 
is still looking up around 32768 for screen memory, though of 
course it has no trouble finding color memory, which never 
moved. 

To get things back to normal, type SHIFT-CLEAR. Then 
type POKE 648,4. You won't be able to see the letters you type, 
but BASIC will see them and act accordingly. This tells BASIC 
to find screen memory back at 1024. 

This program will be expanded into a complete game in 
Chapter 9, called "Mission: Nova!," with the starship under the 
player's control. The objective will be to collide with the large 
stars while avoiding the small ones. Still later, we'll add sound, 
introductions, and farewells. It will be one of our first playable 
games. 


Program 5-12. Flickering Stars 

Remember, do not type the checksum number at the end of each line. For example, do 
not type :rem 123. Please read Appendix J, "Automatic Proofreader," before entering 
this program. 
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DIM CC(1),CH(1),CB(1) srem 175 
REM srem 76 
REM SET VALUES FOR MEMORY VARIABLES srem 98 
REM srem 78 


CC(0)=12sCC(l)=14sVB=32768sVM=VB/256sSB=128sSC= 


SB*256sCM=55296 

FOR 1=0 TO 1s CH(I)=1024*CC(I)+VB s CB(I 

* (SB-VM)sNEXT 

REM 

REM SET VIDEO, SCREEN, & CHAR BLOCKS 
REM 

POKE 648,SBsPOKE 56578,PEEK(56578)OR 
6,(PEEK(56576)AND252)OR 1 


s rem 166 
)=CC(I)+16 
s rem 229 
srem 78 
srem 204 
srem 80 
3 s POKE5657 
srem 167 
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50 PRINT "{CLRjJUST A MOMENT, PLEASE 

• • • 

II 

^J 



srem 144 


57 REM 


srem 80 


58 REM INITIALIZE SCREEN, CHAR SET 


srem 57 


59 REM 


srem 82 


60 GOSUB 1100:GOSUB 400:GOSUB 500 


srem 69 

67 REM 


srem 81 

^i 

68 REM INITIALIZE DISPLAY VARIABLES 


srem 243 

69 REM 


srem 83 

^J 

70 FG=31:OC=l$NC=2 sQ=3 sQQ=Q+l:GOSUB 

800 

srem 28 

80 C=500sW=30sSS=27sCS=2sTS=0sPOKE CM+C,NC 

sPOKE SC 


+C,FG 


srem 11 


97 REM 


srem 84 


98 REM MAIN LOOP 


srem 180 

^J 

99 REM 


srem 86 


100 FOR NC=3 TO 15$X=0 


srem 129 

KJ 

107 REM 


srem 124 

108 REM TIME TO SCROLL THE SCREEN? 


srem 254 


109 REM 


srem 126 

110 IF VAL(TI$)>Q THEN GOSUB 600 


srem 234 


117 REM 


srem 125 

118 REM SWITCH CHAR SETS: ANIMATION 


srem 135 


119 REM 


s rem 127 

W 

120 K=-(K=0):POKE 53272,CB(K) 


srem 10 


127 REM 


srem 126 


128 REM END OF MAIN LOOP 


srem 74 

129 REM 


srem 128 

U 

130 FOR 1=0 TO 49:NEXT 


srem 186 

140 IF X<10 THEN 110 


srem 218 


150 NEXT NC:END 


srem 119 

397 REM 


srem 135 


398 REM SET UP THE STRING OF NEW STARS 

srem 221 

399 REM 


srem 137 


400 T$=""sFOR 1=0 TO 254:T=32 


srem 210 


410 IF INT(RND(9)*7)<1 THEN T=92sIF 

INT(RND(9)*5)< 


1 THEN T=93 


srem 50 


420 T$=T$+CHR$(T)sNEXT 


srem 13 

430 M$=CHR$(19):FOR 1=0 TO 24sM$=M$+CHR$(17)sNEXTs 


RETURN 


srem 178 

497 REM 


srem 136 


498 REM GENERATE THE STARFIELD 


srem 83 

499 REM 


srem 138 


500 POKE 53281,0sPOKE 53280,0sPRINT 

"{WHT}{CLR}" 




srem 141 


505 FOR I=CM TO CM+999sPOKE I,lsNEXT 

srem 40 


510 Q=100*RND(9)+20sQl=6*RND(9)+2 


srem 254 

520 FOR 1=0 TO QsX=1000*RND(9)sN=28s 

GOSUB 

540sNEXT 

^J 



srem 75 

530 FOR 1=0 TO QlsX=1000*RND(9)sN=29 

sGOSUB 

i 540 sNEX 


TsRETURN 


srem 152 
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540 POKE SC+X,N:RETURN 

597 REM 

598 REM SCROLL THE SCREEN 

599 REM 


srem 117 
;rem 137 
:rem 250 
srem 139 


600 POKE SC+C, W sPOKE CM+C,OCsT=l+INT(RND(9)*167) 

srem 10 

605 PRINT M$;MID$(T$,T,40*INT(QQ-Q)-1);sP=P-INT(7* 
Q)sGOSUB 800 srem 78 

607 REM srem 129 

608 REM SAVE CHARACTER BEFORE SCROLL srem 192 

609 REM srem 131 

610 W=PEEK(SC+C) srem 165 

617 REM srem 130 

618 REM PUT SPACESHIP IN SAME LOCATION srem 50 

619 REM srem 132 

620 POKE SC+C,FGsPOKE CM+C,NC srem 168 

627 REM srem 131 

628 REM TIME FOR A SPACE STATION? srem 168 

629 REM srem 133 

630 TS=TS+1sIF TS>10*(QQ-Q)THEN GOSUB 850 srem 118 

640 X=X+1 srem 227 

690 RETURN srem 127 

797 REM srem 139 

798 REM RESET THE TIMER srem 113 

799 REM srem 141 

800 TI$="000000"sQ=99*(Q/l00)sRETURN srem 218 

847 REM srem 135 

848 REM PUT ON A SPACE STATION srem 237 

849 REM srem 137 

850 TS=0sT2=1001-INT(RND(9)*40)sPOKE SC+T2,SSsPOKE 

CM+T2,CSsRETURN srem 221 

1097 REM srem 181 

1098 REM COPY ROM CHARACTER SET srem 88 

1099 REM srem 183 

1100 POKE 56334,PEEK(56334)AND 254sPOKE 1,PEEK(1)A 

ND 251sPOKE 657,0 srem 74 

1107 REM srem 173 

1108 REM COPY FIRST 64 CHARACTERS TWICE srem 55 

1109 REM srem 175 

1110 FOR 1=0 TO 1sRM=53248-CH(I) srem 162 

1120 FOR J=CH(I) TO CH(I)+511sPOKE J,PEEK(J+RM)sNE 

XTsNEXT srem 60 

1127 REM srem 175 

1128 REM PUT CUSTOM CHARACTERS IN PLACE srem 96 

1129 REM srem 177 

1130 FOR 1=0 TO IsFOR J=27 TO 31sFOR K=0 TO 7 

srem 1 

1140 READ Ns POKE CH(I)+8*J+K,NsNEXTsNEXTsNEXT 

srem 240 
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1150 POKE 1,PEEK(1)OR 4:POKE 56334,PEEK(56334)OR 1 

:rem 182 
srem 70 
srem 183 
srem 116 
srem 185 
srem 117 
srem 50 


1160 POKE 53272,CB(0)sRETURN 

1297 REM 

1298 REM DATA FOR CUSTOM CHARACTERS 

1299 REM 

1300 DATA 24,12,14,12,48,112,48,24 

1310 DATA 0,0,40,16,40,0,0,0 

1320 DATA 0,60,126,126,126,126,60,0 srem 164 

1330 DATA 0,32,116,249,159,46,4,0 srem 78 

1340 DATA 211,137,153,255,153,24,24,36 srem 72 

1350 DATA 0,32,112,241,143,14,4,0 srert 56 

1360 DATA 0,0,16,40,16,0,0,0 srem 58 

1370 DATA 0,66,60,60,60,60,66,0 srem 233 

1380 DATA 0,32,112,241,143,14,4,0 srem 59 

1390 DATA 203,145,153,255,153,24,24,36 srem 77 
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Made for Games 

One of the Commodore 64's most powerful game-designing 
tools is its sprite animation abilities. These sprites, also called 
MOBs (for Movable Object Blocks), are in effect graphics 
blocks which you can sculpt into any shape and move about 
the screen. They move independently of the main screen 
image, move quite smoothly, and if only a few are on the 
screen at once, move quickly enough for an arcade-style game, 
even though only BASIC is used. 

Sprites can save a lot of programming because they are 
movable blocks. To create a custom character of the same size, 
move it from one location to another, and move it smoothly, 
would take much longer in terms of program length. Each pixel 
would need a location in memory, and each of these pixels 
would have to change its memory location each time the char¬ 
acter moved. A sprite can do all this with much less effort on 
your part. 

Because sprites are projected independently of any char¬ 
acters already on the screen, you can create the illusion of three 
dimensions in your game. Using standard or custom charac¬ 
ters, you have to redraw any figure that is passed over by 
another character. But sprites do not erase the other characters 
when they move past them, so three-dimensional movement 
can be simulated by moving a sprite in front of, or behind, 
another figure. 

The computer also handles collisions between sprites, or 
between a sprite and another character. This collision detection 
is a powerful tool in its own right, and will be handled in 
Chapter 9. Sprites can also be displayed in color, or even in 
multicolored mode. 

You'll have eight sprites to work with on the 64, which 
should be enough for almost any game you want to design. 
Many times, however, you'll not use all eight, for as you 
increase the number of sprites on the screen, movement slows 
down. This is one of the drawbacks of sprite use. It is not 
something at fault with the sprites, but with BASIC. Often¬ 
times, game programmers use machine language routines to 
move sprites. Chapter 7 includes some excellent machine 
language subroutines to move your sprites more rapidly. 
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Drawing Sprites 

Drawing a sprite is much like drawing a custom character—it 
must be drawn in memory. The difference is that a sprite is a 
much larger character, consisting of a block 24 pixels wide by 
21 pixels high. Each sprite occupies 63 bytes of memory (24 
bits * 21 bits = 504 bits/8 bits per byte = 63 bytes) and uses a 
64-byte block. 

There are utility programs available which can help you 
draw sprites. They handle the more tedious tasks of creating 
sprites, for they allow you to draw a sprite and then count the 
values for the DATA statements you'll need to display them. 
One such utility, "Commodore 64 Sprite Editor," appeared in 
the December 1982 issue of compute!. Sprite editors will make 
it easier to design these characters, but you can do the same 
thing using Figure 6-1, a Sprite Design Worksheet. 

Notice that the worksheet shows the entire sprite area, 24 
columns wide by 21 rows high. The 24 columns have been 
divided into 3 sections of 8 columns each. Just as in creating 
custom characters, each memory location is made up of 8 bits. 
Each group of 8 columns on the worksheet, then, corresponds 
to one memory location used when creating a sprite. For 
instance, columns 0 through 7 of the first row will be repre¬ 
sented by one memory location in the 64. Again, just as with 
custom characters, you'll need to figure out the value of each of 
these groups of 8 bits by adding the values of each on bit. Bit 
values have been included on the worksheet, near the top, to 
make this computation easier. 

A completed sprite will have 63 bit values, since there are 
21 rows with 3 memory locations in each row (21*3 = 63). As 
with custom characters, the sprite is drawn using a READ 
statement which looks to several DATA statements in the 
program. Computing the numbers for the DATA statements 
and placing them in the correct order are essential for drawing 
the sprite. 

Let's go ahead and draw a sprite. Using the Sprite Design 
Worksheet, simply sketch the outline of your sprite, fillin g in 
the blocks that you want to be on. It could look something like 
Figure 6-2. 
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Figure 6-1. Sprite Design Worksheet 
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The blocks that are filled in are the pixels that will be on when 
the sprite is displayed. As when creating custom characters, a 
1 in a particular bit becomes an on pixel in the sprite. A 0 
becomes an off pixel by displaying it in the background color. 
To show some pixels on and others off, you simply add the bit 
values at the top of the Worksheet, counting only those bits 
which show pixels on. Take a look at Figure 6-3, which is the 
same sprite with its bit values calculated. 

The first four rows in this sprite have none of their bits 
turned on. The bit values for all 12 bytes in the first 4 rows are 
thus 0. Row 4 is the first row which shows any pixels on. In 
this row, the first group of 8 bits has none on, so its value is 0. 
The second group has 6 bits on, bits 1 through 6. Adding the 
bit values gives you a total of 126 (64 + 32 + 16 + 8 + 2). lire 
third group of 8 bits in row 4 has no bits on, and so has a value 
of 0. 

Each of the bytes in the sprite is calculated like this; 
remember that each row consists of three bytes, and that each 
byte must be figured separately. The worksheet makes this 
easier, since you can calculate each byte's value and then enter 
it at the right in the appropriate group total column. 

Go through your own sprite design and compute the bit 
values of each of the bytes. Make sure that the 0 values are 
entered where all bits are off, and that each row's bytes are in 
the correct order. This is important, for when you create the 
DATA statements, your sprite will not appear as expected if 
the numbers are not in the right order. 

When you've finished, you should have 63 numbers for 
each sprite, the numbers starting with the top-left corner of the 
sprite design and moving across each row, then to the leftmost 
byte of the row below. The last number represents the byte in 
the bottom-right comer. These numbers will be placed in 
DATA statements within your program so that the computer 
can READ them and then display the sprite on the screen. 

The sprite we've drawn, for example, would have these 
DATA statements: 

DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 126, 0, 0, 255, 0, 1, 255, 
128 

DATA 3, 255, 192, 3, 255, 192, 3, 213, 192, 3, 255, 192, 3, 255, 
192,1, 255, 128, 0, 255, 0 

DATA 0, 66, 0, 0, 66, 0, 0, 231, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 
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These DATA statements can be anywhere in the program, 
just as DATA statements needed to create custom characters. 
Many programmers place them at the end of the program, 
where they are out of the way, so that they are not altered 
unintentionally. 

Each sprite that you design for your game is created this 
way But once you have the sprite designed, you have to POKE 
other values into the 64 to make it appear. 

Creating Your Sprite 

Sprite memory Once you have the DATA statements 
organized for your sprite, you have to find a place to store the 
numbers, as well as point the 64 to the correct location so that 
it can find those values. 

The VIC-II chip can access only 16K of the 64's memory at 
one time, and three things have to be in the same 16K section 
for the computer to work as we want it to. The screen memory, 
the character generator, and the sprite information must all 
appear in the same 16K block of the 64. 

Within a 16K block, we could conceivably place 128 
sprites. You cannot use all 128 positions, of course, for the 
screen memory and character generator take up some of the 
available memory Depending on the 16K block chosen, other 
locations may be forbidden. For example, the block normally 
chosen by the 64 is the one accessed from 0 to 16383. Much of 
the first 1024 bytes is occupied by a BASIC work area; screen 
memory is normally 1024 to 2023; the character generator 
appears at locations 4096 to 8191; and everything above 2048 
that isn't used by the character generator is used to store 
your BASIC program. There's not a lot of room for sprite 
information. 

If you wanted to draw several sprites, you would need to 
do one of two things. First, you could move BASIC so that it 
starts at a higher location. You've seen how to do this in 
Chapter 4 when you created custom characters. The second 
way to create additional space is to use a different 16K block, 
one that is not quite so busy with BASIC operations. Keep 
these things in mind as you develop your own sprites, espe¬ 
cially if you're planning on using lots of them in your game. 

For the moment, however, we'll stay with the first 16K block. 
It's easiest to work with, and we want to keep things simple. 
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Locating sprite DATA. If you're using three sprites or less, 
a convenient place to locate the sprite data information is in 
the cassette tape buffer. As long as you're not using the 
cassette tape for memory storage, the locations from 832 to 
1022 can be used for your sprite information. One sprite would 
be placed at locations 832-894, a second sprite at 896-958, and a 
third at locations 960-1022. 

If you're using a cassette tape, however, or planning on 
more than three sprites, you'll have to locate the sprite infor¬ 
mation at a different address. A popular location among 
programmers, and one suggested by the Commodore 64 
Programmer's Reference Guide, is address 12288. This location is 
high enough in the first 16K block to normally be safe from a 
BASIC program. However, to protect this area from BASIC, 
you may want to POKE the line: 

POKE 52,48:POKE 56,48 

This line, once it's included in your program, moves the BASIC 
pointer and protects the addresses starting at 12288 from any 
BASIC program. You're almost ready to locate your sprite 
information. Only a few more things to consider. 

The memory locations which are involved with sprite 
programming run from 53248 to 53294. Each location sets one 
of the VIC-II chip's registers, making different things happen to 
the computer. Some set sprite color, while others check for 
collisions between sprites. A memory map of the 64 will show 
you each register's exact description. The Programmer's Reference 
Guide has such a map. 

The first location, 53248, is important when programming 
sprites, for it is a value often used when setting color and 
screen location. You'll use it many times, so it's a good idea to 
memorize at least this one location concerning sprites. 

POKEing in sprites. POKEing in sprites on the 64 is a 
step-by-step process. Once you have your sprites designed 
and the accompanying DATA statements prepared, you need 
to POKE a series of values into the computer's memory. You'll 
want to do this as quickly and as easily as you can. The 
following table gives you the necessary information you'll 
need to do this for your eight sprites. Although you can 
certainly spend some time to look at this table, you'll probably 
find it more worthwhile to refer to it as you work with your 
own sprite creations. 
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Table 6-1. Sprite POKE Table 






SPRITE 

3 

SPRITE 

4 

SPRITE 

5 

SPRITE 

6 

SPRITE 

7 

Put in Memory 
(Set Pointers) 

2040, 

192 

2041, 

193 

2042, 

194 

2043, 

195 

2044, 

196 

2045, 

197 

2046, 

198 

2047,. 

199 

Locations for 

Sprite Pixel 
(12288-12798) 

12288 

to 

12350 

12352 

to 

12414 

12416 

to 

12478 

12480 

to 

12542 

12544 

to 

12606 

12608 

to 

12670 

B 

12736 

to 

12798 

Turn On Sprite 

V + 21,1 

V + 21,2 

V + 21,4 

V + 21,8 

V+21,16 

V+21,32 

V+ 21,64 

V +21,128 

Sprite Color 



V+41.C 

V + 42,C 

V+43,C 

V+44,C 

V+45,C 

V+46,C 

SetX 

Position (0-255) 

v+o,x 

V + 2,X 

V + 4,X 

V + 6,X 

V + 8,X 

V + 10,X 

V + 12,X 

V + 14,X 

SetX 

Position Right of 
Seam (0-255) 

V +16,1 

v+o,x 

V +16,2 

V + 2,X 

V +16,4 

V + 4,X 

V +16,8 
V+6,X 

V +16,16 

V + 8,X 

V +16,32 
V+10,X 

V +16,64 

V + 12,X 

V +16,128 

V + 14,X 

Set Y Position 

V + 1,Y 

V + 3,Y 

V + 5,Y 

V+7,Y 

V+9,Y 

V + 11,Y 

V + 13,Y 

V + 15,Y 

Expand Sprite 
Horizontally 

V-1-29,1 

V + 29,2 

V + 29,4 

V + 29,8 

V +29,16 

V +29,32 

V +29,64 

V+ 29,128 

Expand Sprite 
Vertically 

V + 23,1 

V + 23,2 

V + 23,4 

V + 23,8 

V +23,16 

V +23,32 

V +23,64 

V +23,128 

Turn On 

Multicolor Mode 

V + 28,1 

V + 28,2 

V + 28,4 

V + 28,8 

V+28,16 

V +28,32 

V +28,64 

V + 28,128 

Multicolor 1 

V + 37.C 

V + 37.C 

V + 37,C 

V + 37,C 

V+37,C 



V + 37,C 

Multicolor 2 

V + 38,C 

V + 38,C 

V + 38,C 

V + 38,C 

V+38,C 

V + 38,C 

V + 38,C 

V + 38,C 

Set Sprite Priority 
over Background 

V + 27,1 

V + 27,2 

V + 27,4 

V+27,8 

V +27,16 

V +27,32 

V +27,64 

V +27,128 


The first step is to actually place your sprite information in 
one of the available memory location areas. As we said before, 
the easiest location in the first 16K block begins at address 
12288. You can place the information for up to 10 sprites in this 
area before you start running into the section reserved for the 
custom character set you developed in Chapter 4. 

To begin locating your sprite information, you could type 
the lines: 

10 PRINT "{CLR}"sV=53248 srem 152 

20 POKE 52,48:POKE 56,48 :rem 252 

30 FOR X=0 TO 62:READ AsPOKE 12288+X,AsNEXT 

:rem 136 

145 







































































































Sprites 


These clear the screen, set BASIC's pointers and protect the 
memory locations above address 12288 from BASIC, and begin 
READing the DATA for the sprite. Notice that the variable V is 
set as the beginning of the sprite registers. It is simpler to set 
this variable, and use the form V + n to POKE particular values 
into each register, than to memorize each register's address. 

Now that you have the sprite information beginning at 
location 12288, you have to tell the 64 where that information 
is. Take a look at the Sprite POKE Table. To set the 64's pointers 
so that it can locate the information for the first sprite (sprite 
0), you have to POKE location 2040 with a value of 192. This 
sets the sprite pointer so that it now looks to location 12288 for 
its data. To do this, you add: 

40 POKE 2040,192 

The next step is to turn on or enable your 0 sprite. As you 
can see from the Sprite POKE Table, this is done by typing in: 

50 POKE V+21,1 

This allows you to see the sprite on the screen. V + 21 is the 
control register at location 53269 (V=53248: V + 21 = 53269). 
You'll notice that all the sprites, from 0 to 7, are turned on with 
the same register. The only difference is the number that is 
POKEd into that location. When you turn on the sprite, make 
sure you're POKEing in the correct value, and not turning on a 
sprite you're not using. 

You can turn on more than one sprite with a single POKE 
statement. If you were using sprites 0,1, 2, and 3, for instance, 
all you would do is add together the values you POKE in. 

1 + 2+4 + 8=15, which is the number you'd POKE into loca¬ 
tion V + 21. Just as simple is the way you turn off selective 
sprites. If you wanted to turn off sprite 2, for instance, during 
a game, all you would have to do is use: 

POKE V +21,11 

The value 11 is simply 15 (the previous total value) - 4 (the 
value POKEd in for sprite 2). This is a common technique used 
when calculating sprite collisions, and we'll look at it more 
closely in the next chapter. 

If you were to RUN the program at this point, even if you 
added the DATA statements for your sprite, you would not be 
able to see the sprite on the screen. That's because the sprite 
would appear in the background color, and because it has no 
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screen location. To set the color, refer to the Sprite POKE Table. 
60 poke v+39,l 

This POKE statement sets the color of the 0 sprite to white. 

The same values used to change screen color are used to color 
the sprites. Each sprite has its own register address to set color. 
Sprite 6, for example, uses V+45 as its address when selecting 
color. 

Finally, the sprite's screen location must be set so that it 
will display. 

Positioning the sprite on the screen. The screen display is 
divided into a grid of X and Y coordinates, just like a graph. 
The X coordinate is the horizontal position, while the Y coordi¬ 
nate is the vertical position. Take a look at Figure 6-4 for a 
moment. 

Figure 6-4. Screen Display 


0 24 255 
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To place a sprite on the screen, you'll have to POKE in two 
settings, both the X and Y position. This tells the 64 where to 
position the upper-left corner of the sprite. This is important, 
for since the sprite is 24 pixels across by 21 down, you have to 
make sure it's positioned correctly. If you place it in the upper- 
left comer of the screen display, for instance, it will run 24 
pixels to the right from there, 21 pixels down for that starting 
location. 

Notice that the screen viewing area is smaller than the 
area of possible sprite location. If you place your sprite at X 
position 0 and Y position 0, it will not appear on the screen. 

The first location that the sprite will show on the screen is X 
position 24, Y position 50. 

To display a particular sprite, you must POKE the X and Y 
settings. Each sprite has its own unique POKEs that must be 
used. Refer to the Sprite POKE Table for these values when 
you set your own sprite locations. 

Setting the X position. The possible values for X are 0 to 
255, counting from left to right. Values from 0 to 23 will place 
all or part of the sprite outside the viewing area, as you can see 
from Figure 6-4. To POKE in the 0 sprite, for example, you 
could use something like: 

70 POKE V+0,180 

which would set the X position of the sprite to somewhere 
close to the middle of the screen. 

X positions beyond the 255th value. Because the viewing 
area of the screen extends beyond the 255th position (and since 
you can POKE in only values up to 255), to place the sprite on 
the right side of this seam you'll have to place an additional 
POKE in your program. Each sprite has its own value that 
must be POKEd into the register V + 16. This gives you 65 addi¬ 
tional X positions, numbered from 0 to 64. You can POKE in 
values up to 255, but it would place your sprite off the viewing 
area. To set the 0 sprite in the right section of the screen, then, 
you could use something like this: 

70 POKE V+16,1SPOKE V+0,32 

which would locate the sprite's X position at the midpoint of 
the section on the right side of the seam. 

Setting the Y position. Placing the Y position for a sprite is 
much like placing the X position. A different POKE is used. 


kk 
U 
k J 
kJ 
k^ 
kk 
kk 
k J 
kk 

KJ 
k J 
KJ 
kJ 
k^ 
k J 
kJ 
kk 
k^ 
kk 
kk 
kk 
kk 
kk 
kk 
kk 
kk 
k j 
kk 


148 



Sprites 


n 




n\ 

n 

n 

o 

n 

n 

r's 

n 

r\ 

n 

n 

n 


n 


n 




n 

<~\ 

r ^ 
n 


each unique to a particular sprite, and values from 0 to 255 
(counting from top to bottom) are allowed. Only the values 
from 50 to 229, however, will place the entire sprite in the 
viewing area. Using the 0 sprite again, you could type: 

80 POKE V+1,120 

which would place the sprite about midway down the screen 
viewing area. There is no seam on the Y position. 

The First Sprite 

You've designed and created your first sprite. To actually show 
it on the screen, you only need to add the DATA statements 
you made when you designed your sprite. Using the example 
sprite designed earlier, you could enter: 

200 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,126,0,0,255,0,1 
,255,128 

210 DATA 3,255,192,3,255,192,3,213,192,3,255,192,3 
,255,192,1,255,128,0,255,0 
220 DATA 0,66,0,0,66,0,0,231,0,0,0,0,0,0,0,0,0,0,0 
, 0,0 

Now you have a short program which should create and 
display a sprite. The complete program below is simply a 
compilation of all the various POKEs necessary to create a 
sprite. 


Program 6-1. Sprite #1 


Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


10 PRINT"{CLR}"sV=53248 srem 152 
20 POKE 52,48:POKE 56,48 srem 252 
30 FOR X=0 TO 62 s READ As POKE 12288+X,AsNEXT 

srem 136 


40 POKE 2040,192 srem 33 
50 POKE V+21,1 srem 213 
60 POKE V+39,1 srem 223 
70 POKE V+0,180 srem 12 
80 POKE V+1,120 srem 8 


200 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,126,0,0,255,0,1 
,255,128 srem 185 

210 DATA 3,255,192,3,255,192,3,213,192,3,255,192,3 
,255,192,1,255,128,0,255,0 srem 146 

220 DATA 0,66,0,0,66,0,0,231,0,0,0,0,0,0,0,0,0,0,0 
,0,0 srem 236 


<0 
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Expanding sprites. The VIC-II has the ability to expand a 
sprite in the horizontal direction, in the vertical direction, or in 
both at the same time. This is a feature of sprite creation that 
allows you to create large figures on the screen without having 
to design custom characters, or even without combining two 
sprites. When a sprite is expanded, each dot becomes twice as 
tall or twice as wide. The sprite's resolution doesn't increase; it 
simply gets larger. 

As with other sprite POKE commands, each of the eight 
sprites uses its own unique register value. To expand your first 
sprite, sprite 0, for example, you would type the following line 
after you've loaded and run the short sprite creation program. 

POKE V +29,1 

Because this is in direct mode, the change is only temporary. 
Your sprite is now double its previous width. To change it back 
to its original size, type: 

POKE V + 29,0 

Changing the vertical size of the sprite is just as easy. 
Simply type: 

POKE V + 23,1 

and the 0 sprite is twice as tall as it was before. To change it 
back, type: 

POKE V +23,0 

Both the horizontal and vertical size can be expanded by 
combining the POKEs as: 

POKE V + 29, l:POKE V + 23,1 

You can refer to the Sprite POKE Table for the different 
values to POKE into the register for each sprite. Just as in 
turning sprites on or off, each bit of these two registers controls 
a different sprite. Make sure that you use the appropriate 
value for each sprite you're expanding. 

Adding these POKEs to your program is easy. If you want 
to show the sprite doubled both horizontally and vertically, 
add: 

90 POKE V+29,1:POKE V+23,1 

Expanded sprites have many uses in game design. One 
possible application would be to simulate three dimensions by 
making a sprite expand as it moves, making it seem to close in 
on the player. Another use could be sprite animation, for 
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Sprites 


example, showing an explosion expanding, then contracting. 
You'll come up with other ideas for this use of sprites when 
you design your own games. 

]V1ulticolor Sprites 

Multicolor sprites work much the same as multicolor charac¬ 
ters. Bits within the sprite drawing are paired, and the combi¬ 
nation of the on and off bits within each pair determines its 
color. Although designing the sprite may be slightly more diffi¬ 
cult with multicolor, the effort is well worth it. 

Let's look at this bit-pairing again. With only two bits, 
there are four possible combinations 

Figure 6-5. Bit-Pairing 

Bit Pairs 





Just as with custom characters, this is how the 64 sets 
colors for multicolored sprites. Figure 6-6 shows what each bit- 
pair represents, along with the locations for alterating a sprite's 
colors. 


Figure 6-6. Sprite Bit-Pairing 

Bit Pairs 


Background POKE53281,C 



Multicolor 1 


POKE V + 37, C 



Sprite character color 


POKEV+ (39 to 46), C 



Multicolor 2 


POKE V + 38,C 
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(A 1 indicates an on bit, while 0 indicates an off bit.) 

Keep in mind as you're designing multicolored sprites 
that these bits set the pixels as the sprite is drawn. Each 
colored dot will consist of two pixels, side by side. You have 
four colors to work with: background color (the present color 
of the screen), sprite character color. Multicolor 1, and Multi¬ 
color 2. Depending on which bit(s) are on or off in each pair, a 
different color is displayed in the two-pixel wide block. For 
example, look at Figure 6-7, a representation of one eight-pixel 
block of a sprite drawing. 

Figure 6-7. Sprite Combinations 

Bit 128 64 32 16 8 4 2 1 

Value 

Bit 7 6 5 4 3 2 1 0 



Bit 

Pairs 


Background 

Sprite 

Multicolor 

Multicolor 

Color 

Character 

Color 

1 

2 


Bits 7 and 6 are both set to 0, or blank. This two-pixel 
block will show in the background color. The second block, bits 
5 and 4, are on and off respectively. This pattern will display 
the sprite character color. The third pair, bits 3 and 2, are off 
and on, which gives that two-pixel block the color selected by 
Multicolor 1. Finally, bits 1 and 0 are both on. Multicolor 2 will 
be displayed in this block. 

As you design your multicolored sprite, you need to indi¬ 
cate which bit-pairs will be displayed in which of the four 
colors. If the first eight-pixel block of your sprite is designed to 
look like Figure 6-7, for instance, you simply add the values of 
all the bits that are to be turned on. 32 + 4 + 2 +1 = 39; that's the 
value you would place in the DATA statement for that first 
eight-pixel block of your sprite. 

Creating an entire multicolored sprite is more complicated 
than figuring the value for only part of one row, of course. 
Designing a multicolored sprite has its own peculiarities, for 
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with dots two-pixels wide, resolution is cut by half. Although 
you can simply turn on the multicolored mode and use an 
existing sprite, sometimes it will be better to redesign the 
entire sprite so that it looks as you want it to. Figure 6-8, the 
Multicolor Sprite Design Worksheet, helps you do this in the 
same way the Sprite Design Worksheet did earlier in this 
chapter. 

The main difference between the two worksheets is that 
the Multicolor Sprite Design Worksheet groups the pixels into 
paired blocks. The bit-pair patterns are also helpful when 
you're designing your own multicolored sprite. Look at Figure 
6-9 for a moment. This shows the sprite designed earlier, now 
set up for multicolor mode. It is slightly different than the orig¬ 
inal, since bit patterns have to be set to show the various 
colors. The values you would place in a DATA statement are 
different as well, as you can see by comparing these numbers 
with the ones in Figure 6-3. 

Figure 6-10 shows the same sprite in multicolor, in the 
way it would appear on your screen. Notice how the bit-pairs 
create different colors. 

Simply changing the DATA statement numbers will not 
make your sprite display in multicolors, however. 

Turning on the color. To show a sprite in multicolor, you 
first have to turn the mode on. Setting the multicolor mode is 
done by POKEing in a value to register V + 28. Each sprite has 
its own value to POKE to that register. The 0 sprite, for 
instance, would use a value of 1. Adding this line to the 
program you've already typed in would set the sprite to multi¬ 
colored mode. 

100 POKE V+28,1 

You now have to assign colors to Multicolor 1 and Multi¬ 
color 2 for your sprite. Before you do that, however, there are 
several things you should know. First of all, all the sprites 
displayed on the screen will share background color. Multi¬ 
color 1 and Multicolor 2. To make each sprite as different from 
the next as possible, the majority of a sprite's color should be 
set to the sprite character color. The more each sprite has of its 
own character color, the more different each will seem. 

Another thing to consider is that Multicolor 1 is trans¬ 
parent to collision detection. If a sprite is composed of only 
Multicolor 1, no collisions will register between that sprite and 
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Figure 6-10. Multicolor Sprite as It Appears on the 
Screen 
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any other sprite. This can be a handy tool, for by creating back¬ 
ground colors in Multicolor 1, you can make sure they are not 
detected in a collision. 

You can also create interesting effects using the multicolor 
mode. One example would be a flashing window, or figure's 
eye. You can do this by changing the color of a block at regular 
intervals. All you have to do is POKE a different number into 
the register that controls one of the sprite colors. 

Assigning colors to Multicolor 1 and 2 is as easy as 
assigning colors to the sprite's character color or to the screen 
background color. You use the same numbers as values to 
POKE in colors to the multicolor mode as you do for all other 
colors. To set Multicolor 1 to white and Multicolor 2 to yellow 
for our sample sprite, all you do is type: 

110 POKE V+37,1sPOKE V+38,7 

You can change the values POKEd in to create other colors. 

The following program creates a multicolored sprite, 
using the same steps we've already described. Notice that the 
DATA statements in lines 200-220 use the numbers from the 
newly created multicolored sprite. There are also two short 
delays, in lines 120 and 140, followed by color changes, to 
show you how to turn colors on and off. 

Program 6-2. Multicolored Sprite 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


10 PRINT"{CLR}"sV=53248 

srem 152 

20 POKE 52,48sPOKE 56,48 

trem 252 

30 FOR X=0 TO 62sREAD AsPOKE 

12288+X,A:NEXT 


srem 136 

40 POKE 2040,192 

srem 33 

50 POKE V+21,1 

srem 213 

60 POKE V+39,1 

srem 223 

70 POKE V+0,180 

srem 12 

80 POKE V+1,120 

srem 8 

90 POKE V+23,1sPOKE V+29,1 

srem 141 

100 POKE V+28,1 

srem 8 

110 POKE V+37,1s POKEV+38,7 

srem 193 

120 FOR T=0 TO 500sNEXT 

srem 236 

130 POKE V+39,2 

srem 14 

140 FOR T=0 TO 500 sNEXT 

srem 238 

150 POKE V+39,4 

srem 18 
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160 GOTO 120 :rem 99 w 

200 DATA 0,0,0,0,0,0,0,0,0,0,255,0,3,170,192,14,17 

0,176,14,170,176 :rem 101 ^ 

210 DATA 14,170,176,14,102,176,14,170,176,14,170,1 
76,14,170,176,3,170,192,0,255 :rem 38 

220 DATA 0,0,65,0,0,65,0,1,85,64,0,0,0,0,0,0,0,0,0 
,0,0,0 srem 88 


By changing the numbers in the DATA statements, you can 
create your own multicolored sprites. Here are two more multi¬ 
colored sprites you can try. All you need to do is replace the 
numbers in the program's DATA statements with these values. 

Robot 

DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 
DATA 0, 0, 0, 0, 168, 0, 0, 100, 4 
DATA 0,152, 8, 0, 168, 32, 0, 32,128 
DATA 10,170, 128, 34, 186, 0, 34,170, 0 
DATA 34,186, 0, 130, 170, 0, 66,170, 0 
DATA 2,170, 0, 0, 136, 0, 0, 136, 0 
DATA 0,136, 0, 0,136, 0, 2, 138, 0 


KJ 

C J 
k J 


Airplane 

DATA 0, 0, 0, 0, 128, 0, 0, 144, 0 

DATA 0,160, 0, 0, 168, 0, 0,168, 0 

DATA 0,168, 0, 0,168, 1, 0, 168, 2 

DATA 42,170, 170, 234, 170, 170, 42, 170,170 

DATA 0, 168, 2, 0, 168, 1, 0, 168, 0 

DATA 0,168, 0, 0, 168, 0, 0, 160, 0 

DATA 0,144, 0, 0, 128, 0, 0, 0, 0 

One of the interesting things you can do with sprites is 
change their colors. There are other ways besides the FOR- 
NEXT loop method to make changes like this, however. You 
could insert lines similar to these in the main loop of your 
program, so that every 15 times through the loop, colors of 
your sprites change: 


CJ 

V 

G 

g 

G 


C = C + 1:IF C = 15 THEN POKE V + 39,1 
IF C = 30 THEN POKE V + 39,7:C = 0 


Counter variables such as this can be set for many purposes, to 
change from one thing to another, or to turn registers on and 


off. 
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kj 
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Sprite Parade 

Examples of sprites are sometimes hard to find. For the begin¬ 
ning programmer, the first step of creating a sprite is often¬ 
times the hardest. To help in creating and designing your own, 
the program which follows displays nine sprites for you to 
look at. You can use them in your own game, or modify them if 
you wish. 

The program shows each sprite moving from the bottom 
of the screen to the top. As each moves upward, it passes in 
front of the graphic display near the bottom and behind the 
screen title. Although these movements are covered more 
completely in the next chapter, you can get an idea of their 
effects in this program. 

Each sprite's color is set randomly. Sprite 206 is the only 
one in multicolor mode. As you can see when you run the 
program, some of the color combinations look better than 
others. You can experiment even more by changing the screen 
background color to something other than black. 

Take a look at the sprite patterns before you type the 
program in. The DATA statements are set to display these 
sprites, but you could change the numbers to show a modified 
picture. 

Figure 6-11. Space Fighter 
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Figure 6-13. Rocket 
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Figure 6-16. Enterprise 



Figure 6-17. Alien Saucer in Multicolor 



W 

0 

v .j 

^j 

V .J 

w 

^J 

v .J 

KJ 




























































Sprites 


Type in and run the program to see these nine sprites on 
the screen. An explanation of the program follows. 

Program 6-3. Sprite Parade 

Remember, do not type the checksum number at the end of each line. Bor example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

5 GOSUB 300 srem 72 

10 V=53248 $S=200sPRINT"{CLR}{WHT}":POKE 53281,0:Y= 
255 srem 45 

20 PRINT"{4 DOWN}{WHT}{7 SPACES}*** SPRITES ON PAR 

ADE ***" srem 236 

30 PRINT"{10 DOWN}£63(c 40 £3”; srem 242 

40 PRINT” ++++++++++++++++++++++++++++++++++++++++ ” 
; srem 168 

50 PRINT"g40 +|" srem 38 

60 POKE V,160SPOKE V+l,YsPOKE V+21,1 srem 248 

70 POKE V+29,Is POKE V+23,1 srem 139 

80 POKE V+39,10sPOKE V+37,3sPOKE V+38,7 srem 124 

90 POKE 2040,S srem 221 

100 R=INT(RND(1)*15)+l srem 174 

110 Y=Y-2sIF Y<0 THEN S=S+1sY=255sPOKE V+39,RsPOKE 
V+27,0 srem 234 

120 IP S=209 THEN S=200 srem 158 

130 IF S=206 THEN POKE V+28,1 srem 241 

140 IP Y<120 THEN POKE V+27,1 srem 241 

150 IF S=207 THEN POKE V+28,0 srem 243 

160 POKE V+l,YsGOTO 90 srem 217 

300 FOR X=0 TO 8 srem 26 

310 FOR S= 0 TO 63 sREAD AsPOKE 12800+(64*X)+S,AsNE 
XTsNEXT X srem 223 

320 RETURN srem 117 

999 REM SPRITE # 200 SPACE FIGHTER srem 144 

1000 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,128,0,1 

12,0,0,120,0,0 srem 237 

1010 DATA 124,0,0,126,0,0,127,0,0,255,255,192,192, 
0,240,255,255,255,255 srem 132 

1020 DATA 248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 srem 171 

1049 REM SPRITE #201 ALIEN LANDER srem 94 

1050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,16,0,0, 

16,0,0,16,0,0 srem 140 

1060 DATA 56,0,0,124,0,0,170,0,1,85,0,1,255,0,1,25 
5,0,0,170,0,1,41,0 srem 185 

1070 DATA 2,40,128,0,0,0,0,0,0,0,0,0,0,0,0,0 

srem 23 

1099 REM SPRITE # 202 ROCKET SHIP srem 65 

1100 DATA 0,16,0,0,16,0,0,16,0,0,40,0 srem 217 

1110 DATA 0,40,0,0,40,0,0,68,0,0,68,0 srem 229 
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DATA 0,68,0,0,68,0,0,68,0,0,68,0 srem 250 
DATA 0,68,0,0,68,0,0,198,0,1,69,0,2,68,128,4, 
68,64,8,68,32,31 :rem 159 
DATA 255,240,0,56,0,0 srem 233 
REM SPRITE # 203 WOODEN BLOCK srem 121 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,255,248,1,126, 
24,2,130,40,5,252 srem 123 
DATA 72,10,4,168,23,249,72,63,254,136,32,130, 
168,33,66,208,34,34 srem 72 
DATA 160,39,242,64,40,10,128,40,11,0,63,254,0 
,0,0,0,0,0,0,0,0,0,0 srem 26 
REM SPRITE # 204 SPACE DESTROYER srem 117 
DATA 0,126,0,3,195,192,7,255,224,1 srem 108 

DATA 195,128,0,126,0,128,60,1,128,60,1,128,60 
,1,129,255,129,255,129 srem 203 
DATA 255,185,255,157,143,195,241,128,126,1,12 
8,36,1,0,24,0,0,24 srem 2 
DATA 0,8,24,16,8,24,16,8,24,16,15,255,240,9,2 
31,144,0 srem 15 
REM SPRITE # 205 USS ENTERPRISE srem 65 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,255,248,0,64 srem 198 
DATA 16,0,127,224,0,12,0,0,6,3,248,3,15,254,1 
,131,0,0,198,0,0,108 srem 55 
DATA 0,15,255,0,31,254,0,0,0,0,0,0,0,0,0,0,0 

srem 21 

REM SPRITE # 206 SAUCER ALIEN srem 119 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20,0,0,1 
70,0,2,170,128 srem 193 
DATA 9,150,96,170,170,170,10,85,160,2,170,128 
,0,170,0,2,0,128,8,0 srem 80 


DATA 32,42,0,168,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 srem 190 
REM SPRITE # 207 ALIEN VISAGE srem 112 
DATA 0,8,0,0,28,0,0,127,0,1,255,192,67,255,22 
5,102,127,51,119,62 srem 36 
DATA 119,127,28,127,127,8,127,127,247,255,127 
,247,255,127,247,255,127 srem 92 
DATA 255,255,111,0,123,70,255,177,7,255,240,3 
,193,224,1,255,192,0 srem 110 
DATA 127,0,0,28,0,0,0,0,0 srem 154 
REM SPRITE # 208 SPACE FORTRESS srem 50 
DATA 0,0,0,0,16,0,0,56,0,0,16,0,15,255,224,0, 
40,0,1,255,0,7,255 srem 190 
DATA 192,0,130,0,63,255,248,31,255,240,1,1,0, 
3,255,128,1,255,0 srem 186 
DATA 0,68,0,0,254,0,0,56,0,0,108,0,0,124,0,0, 
40,0,0,16,0,0 srem 188 
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How the Program Works: 

Line Function 

5 Send the program to the routine at line 300 which 

READs and POKEs the DATA numbers for the 
nine sprites. 

10 Set the variables V, S, and Y and the screen back¬ 

ground color to black. 

20 Print the screen title in white. 

30-50 Print three lines of graphics characters for the 

sprites to pass in front of as they move on the 
screen. 

60 POKE in the X and Y coordinate position of the 

sprite and turn it on. 

70 Expand the sprite both horizontally and vertically. 

Omitting this line leaves the sprites at normal size. 

80 Set the color for the sprites. 

90 Begin the main loop of the program by POKEing 

the sprite pointer to the first sprite, 200. This 
simply tells the 64 where to get its DATA for each 
sprite picture. 

100 Set the random number for sprite color. Adding 1 

to the INT result eliminates the possibility of gener¬ 
ating a 0, which would create a black sprite. Since 
the screen background is also black, this would 
make the sprite invisible. 

110 Move the sprite by subtracting 2 from its Y coordi¬ 

nate position each time this line is executed. When 
Y=0, the sprite is off the viewing area, and 1 is 
added to S, changing the sprite picture. Y is reset 
to 255, starting the next sprite at the bottom of the 
screen. The V + 27 register is also turned on, then 
off, to force the sprite to first pass in front of, then 
behind the screen characters. (The next chapter 
explains this more fully.) 

120 Reset the variable S once all sprites have been 

displayed. This repeats the display. 

130 Turn the multicolor mode on for sprite 206. 


U 

O 

kj 

kj 

k j 
k j 
w 

kj 

o 

k^ 

w 

kk 

kJ 

k J 
k J 
k J 
kJ 
k J 
k J 
k J 
k J 
k J 
k J 
k J 
k J 
k J 


166 


Sprites 


r •) 

n 

n 

n 

n 

n 

n 

r\ 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 

n 


150 Turn off the multicolor mode once sprite 206 has 

disappeared. 

160 POKE in the new sprite and repeat the main loop. 

1000-1420 DATA statements for the nine sprites. 

Sprites; Sprites; Sprites 

The Commodore 64's sprite-handling ability is an excellent tool 
for the game designer and programmer. You can design and 
create your own sprites, either in single colors or in a multi¬ 
color mode. The sprites can be displayed in normal size, or 
expanded. They can even be switched off and on, appearing 
and disappearing, or their colors can change during a game. 

Creating sprites is not the only thing the 64 does, 
however. It also moves them. The next chapter shows you how 
this is done. 
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Moving Sprites 

Character movement on the 64, as detailed in Chapter 5, is 
actually two separate problems: movement and animation. 
Movement is getting the character from one place to another on 
the screen. Animation is making that player seem natural in its 
movements. 

Moving sprites presents much the same problem to a 
game designer. Creating a character that seems to move natu¬ 
rally is often a challenge, especially to the beginning 
programmer. Fortunately, moving a sprite is much simpler 
than moving a character. This is because the 64 is designed to 
do much of the programmer's work. To move a sprite, all you 
have to do is set the X and Y positions, and then instruct the 
computer to provide a series of new locations. The sprite, 
unlike a character, does not have to be constantly erased and 
rePOKEd into a new location. 

Sprite Priorities 

Sprites have a peculiarity not shared by characters. As they 
move across the screen, sprites have the ability to cross each 
other's paths. Characters that attempt to do this are erased, 
and must be redrawn. Sprites can even move in front of, or 
behind, other objects on the screen, giving a simulated three- 
dimensional effect. This is especially useful in games. 

Sprites cross other figures on the screen according to a 
procedure that doesn't change. This is called sprite priority, 
and should be mentioned before you actually begin working 
with sprite movements. 

Lower-numbered sprites will always pass in front of 
higher-numbered sprites. That is, sprite 0 passes in front of all 
other sprites; sprite 6 passes only in front of sprite 7; and so 
on. You can create a window effect by making a sprite with a 
gap in it, then causing another sprite to pass behind it. This 
makes for an impressive three-dimensional effect. 

Sprites can also be set to pass in front of, or behind, other 
characters or background displays. To do this the register 
V + 27 is POKEd. Each of the eight sprites must have its own 
bit set, just as when sprites are enabled, or turned on. If a 
particular sprite's bit is on, that sprite will pass or appear behind 
background or screen characters. If the bit is off (as it normally 
is for all sprites), then it will pass in front of any screen 
characters. 
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To give the screen and background priority over a partic¬ 
ular sprite, POKE in the appropriate value. Refer to the Sprite 
POKE Table in Chapter 6 for these values. For instance, setting 
the screen priority over sprite 0, you would type in: 

POKE V +27,1 

Just as when you enable any of the one-byte registers for 
sprites, to turn on more than one, you must add the sprites' 
values together. For example: 

POKE V +27,129 

will set the background and screen priority over sprites 0 
and 7. 


Computer-Controlled Sprites 

Many times you'll want computer-controlled sprites moving 
on the screen. That's what this chapter will explore; player- 
controlled sprites, either through a joystick or the keyboard, 
will be dealt with in the next chapter. 

Sprites can be used for the same purposes as standard or 
custom characters. They can serve as targets, as opposing 
figures, as objects to avoid, or simply as projectiles. Because 
their movements are so easy to program, you'll probably find 
yourself using them in place of custom characters in many 
instances. 

Moving a sprite becomes a series of commands which 
change the location in as small increments as possible. The 
larger the distance between screen positions, the jerkier the 
movement will seem, so you'll want to change the position one 
pixel at a time if possible. 

We'll consider three kinds of sprite movements that are 
directed by the computer rather than the player. They are: 
simple one-direction movements, random movements, and 
intelligent movements. Each type of sprite movement has its 
own application in a game, so we'll consider them separately. 


Falling Objects 

One of the most popular videogames is Space Invaders. The 
opponents are not intelligent, nor do they move in a random 
pattern. Over and over again, they descend toward the player. 
They are actually little more than falling objects that also move 
across the screen. Astrosmash, an arcade-style game for the 
Mattel Intellivision system, shows this type of movement even 
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better. In that game, asteroids continually fall on your player- 
controlled character. The angle they approach your character 
varies from time to time, but they are basically falling rocks. 

Creating something similar on the 64 is quite simple using 
sprites. We'll begin with this sort of sprite movement because 
it is the easiest to program, and will set a base for the later, 
more complicated movements of sprites. 

You've created your sprite (it doesn't have to look like a 
falling rock for you to see how to move it), and you're ready to 
see it smoothly move about the screen. You can use the DATA 
information for your own sprite in place of the statements used 
in the program below. All you have to do is insert your DATA 
numbers in lines 200-260. 


Program 7-1. Falling Blocks 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 PRINT"{CLR}"sPOKE 53281,0:V=53248:X=20:Y=20 

:rem 195 

20 FOR X=0 TO 62:READ AsPOKE 12288+X,AsNEXT 

srem 135 

30 POKE 2040,192 srem 32 

35 POKE V+23,1SPOKE V+29,1 srem 140 

40 POKE V+21,1 srem 212 

50 POKE V+39,10 srem 14 

60 POKE V+0,X srem 202 

70 POKE V+l,Y srem 205 

80 Y=Y+1sIF Y>255 THEN Y=20 srem 214 

100 GOTO 60 srem 48 

200 DATA 255,255,255,255,255,255,255,255,255 

srem 136 

210 DATA 255,255,255,255,255,255,255,255,255 

srem 137 

220 DATA 255,255,255,255,255,255,255,255,255 

srem 138 

230 DATA 255,255,255,255,255,255,255,255,255 

srem 139 

240 DATA 255,255,255,255,255,255,255,255,255 

srem 140 

250 DATA 255,255,255,255,255,255,255,255,255 

srem 141 

260 DATA 255,255,255,255,255,255,255,255,255 

srem 142 


Much of this program should be familiar to you if you've read 
Chapter 6, for it uses the 0 sprite. The screen color is changed 
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to black, variables are set, and the sprite DATA is read and 
POKEd into the proper locations. The pointer is set in line 30, 
line 40 turns the sprite on, and line 50 sets its color to orange. 

Lines 60 and 70 POKE in the sprite's X and Y starting posi¬ 
tions on the screen. Line 80 is really the only line you haven't 
yet used. All it does is change the sprite's Y position by one 
pixel each time through the loop. When Y = 255, the lowest 
position on the screen, it is reset to 20, the Y coordinate 
starting place, and the process begins all over again. 

After typing in and running this program, notice how 
smoothly the sprite moves down the screen. This is one of the 
advantages of using sprites, for they move much more 
smoothly than characters. 

If you'd wanted the sprite to make only one pass down 
the screen, you could have changed line 80 to: 

80 Y=Y+lsIF Y>255 THEN Y=255 

This would cause the sprite to reach the bottom and remain 
there. Remember that you'll see an ILLEGAL QUANTITY error 
on the screen if you try to POKE a number greater than 255 
into any memory location. 

Moving the sprite in other directions is just as easy. Using 
the loop technique in lines 60-100 in the previous program, 
you can make a sprite go up, down, to either side, or even 
diagonally across the screen. Look at the program below for a 
moment, then type it in to see a sprite move in several direc¬ 
tions. Again, you can insert your own sprite's DATA state¬ 
ments in lines 200-260 as a replacement. 


Program 7-2. Diagonal Movement 

10 PRINT"{CLR}"sPOKE 53281,0:V=53248sX=50:Y=30 

srem 199 


20 FOR X=0 TO 62sREAD AsPOKE 12288+X,AsNEXT 

srem 135 


30 POKE 2040,192 

40 POKE V+21,1 

50 POKE V+39,10 

60 POKE V+0,X 

70 POKE V+l,Y 

80 Y=Y+1sIF Y=220 THEN 90 

85 GOTO 60 

90 POKE V+0,XsPOKE V+1,Y 
100 X=X+1sIF X=255 THEN 110 
105 GOTO 90 

110 POKE V+0,XsPOKE V+l,Y 
120 Y=Y-1sIF Y=50 THEN 130 


srem 32 
srem 212 
srem 14 
srem 202 
srem 205 
srem 62 
srem 12 
srem 109 
srem 149 
srem 56 
srem 150 
srem 103 
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125 GOTO 110 srem 99 

130 POKE V+0,XsPOKE V+1,Y srem 152 

140 X=X-lsIFX=50 THEN 150 srem 104 

145 GOTO 130 srem 103 

150 POKE V+0,XsPOKE V+1,Y srem 154 

160 X=X+1sY=Y+1sIF X=255 THEN PRINT "{CLR}{3 DOWN} 
{WHTjALL DONEl"SEND srem 91 

165 GOTO 150 srem 107 

200 DATA 0,0,0,0,0,0,0,0,0 srem 188 

210 DATA 0,0,0,0,126,0,0,255,0 srem 146 

220 DATA 1,255,128,3,255,192,3,255,192 srem 76 

230 DATA 3,213,192,3,255,192,3,255,192 srem 74 

240 DATA 1,255,128,0,255,0,0,66,0 srem 64 

250 DATA 0,66,0,0,231,0,0,0,0 srem 99 

260 DATA 0,0,0,0,0,0,0,0,0 srem 194 
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The sprite moves down, to the right, up the screen, left, and 
finally diagonally to the lower-right comer of the viewing area. 
Each of the five loops moves the sprite in one straight-line 
direction. The down movement you've already seen. 

To move a sprite to the right, ah you have to do is increase 
its X coordinate position one pixel at a time. The line below 
does that: 

100 X=X+1sIF X=255 THEN 110 

When the X position reaches its maximum, 255, the sprite 
begins the next loop in line 110. 

To move up, you must decrease the sprite's Y coordinate 
position: 

120 Y=Y-1sIF Y=50 THEN 130 

Moving to the left is done with the line: 

140 X=X-1sIF X=50 THEN 150 

This decreases the X coordinate by one each time through the 
loop. The sprite will end up in its starting location. 

To move diagonally, you only need to combine the 
increases of both the X and Y coordinates. Line 160 does this: 

160 X=X+lsY=Y+l 

When X = 255, the sprite will have moved off the viewing area 
and a message will display. Something similar can be used to 
move the sprite in the other diagonal directions. For instance, 
to move up and to the right, you could type: 

X = X+1: Y —Y —1 


r*\ 
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Moving down and to the left-hand comer can be accom¬ 
plished with: 

X = X-1: Y=Y+1 

Up and to the left would look like: 

X=X —1: Y=Y-1 

You have eight possible movements with the sprite so far. 
Since it is moving one pixel at a time, the movement is 
smooth. Sprites erase themselves, so there is no need to do 
that in the program, unlike when you're using custom charac¬ 
ters. However, sprites can move in more than eight directions, 
not just in the eight lines that a character can move. To show 
this, change line 160 in the original program to: 

160 X=X+11Y=Y+.5sIP X=255 THEN PRINT "{CLR} 

{3 DOWN}{WHT}ALL DONE 1"tEND :rem 141 

If you run this version of the program, you'll see the sprite 
moving to the left and down at a different angle than before. 
You can change the angle by simply altering the .5 to values 
such as .3 or .25. 

You can even make the sprite head toward the right of the 
original path by changing line 160 to: 

160 X=X+1:Y=Y+.25:IF X>254 OR Y>254 THEN PRINT " 

{CLR}{3 DOWN}{WHT}ALL D0NE1":END srem 146 

The additional changes in the line are necessary, for if they 
are omitted, you'll see an ILLEGAL QUANTITY error message. 
What happens is that the Y coordinate position becomes 
greater than 255. 

The Invisible Seam on the 64 

As you ran the sample programs moving the sprite from side 
to side, or around the edge of the screen, you probably noticed 
that it did not move all the way to the right-hand side of the 
viewing area. This is because of the seam that separates two 
different sections of the 64's screen. 

You didn't have to worry about this seam when you 
created and moved custom characters. Characters will move 
only within the viewing area. Sprites are not bound by this 
rule, however. They are not confined to the 1000 screen loca¬ 
tions, as are characters, but have a playing area greater than 
what the monitor screen displays at one time. Although this is 
in some ways an advantage when using sprites in a game, it is 
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also a bit more difficult to program. 

Take a look at Figure 7-1. This shows the viewing area of 
your television or monitor screen, along with the X and Y coor¬ 
dinates where your sprites can be located. 

Figure 7-1. Screen Display 



Not every coordinate you can place your sprite on will 
appear in the viewing area. If you located a sprite at X = 0: 

Y=0, it would not appear on the screen. The upper-left corner 
of the viewing area is X=24: Y=50. This is the first location 
which will display all of your unexpanded sprite. The bottom- 
left comer has the same problem. To show a full sprite in its 
entirety, you could only use X = 24: Y = 229. If the Y position is 
greater than 229, part or all of the sprite may be cut off. 

The horizontal position of a sprite is even more complex. 
Twice as wide as it is high, the sprite movement area extends 
512 positions horizontally. You'll actually use only a portion of 
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these locations, the ones shown in the viewing area, but that 
number is still higher than 255. You'll remember that 255 is the 
highest number you can POKE into a location, and since you 
set and move sprites by doing just that, getting to the far right- 
hand side of the screen is complicated. 

POKEing to Gross the Seam 

The 64 creates, in effect, two screens. One is accessed 
normally, simply by POKEing in the X and Y positions. The 
other, near the right-hand side, is accessed only when an addi¬ 
tional register is turned on. This register's address is V +16, (or 
location 53264), and must have one bit turned on for each of 
the eight sprites that wish to cross the seam which divides the 
64's screen. You can do this by POKEing V+16, x, where x 
is the value used to turn a particular sprite on. For example, 
POKEing 

V + 16,l:V + 0,0 

allows sprite 0 to cross the seam. In effect, the register V -I-16 
tells the sprite which of the two screens it is on. (Normally, 

V+16 is set at 0, meaning no bits are turned on, and all sprites 
assume they are on the left side of the seam.) 

The following program shows this movement. There is 
only one sprite, and it moves just once across the screen, but it 
will give you an idea of the methods used to cross the seam. 


Program 7-3. Moving Across the Seam 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


10 PRINT"{CLR}"sPOKE 53281,0:V=53248;X=20$Y=120 

srem 244 


20 FOR X=0 TO 62 s READ As POKE 12288+X,AsNEXT 

srem 135 


30 POKE 2040,192 
40 POKE V+21,1 
50 POKE V+39,10 
60 POKE V+0,X 
70 POKE V+l,Y 

80 X=X+1sIF X>255 THEN POKE V+16,lsX=l 
90 IF (PEEK(V+16) AND 1)=1 AND X=91 THEN 
E IT ACROSS 1"sEND 
100 GOTO 60 

200 DATA 0,0,0,0,0,0,0,0,0 

210 DATA 0,0,0,0,126,0,0,255,0 

220 DATA 1,255,128,3,255,192,3,255,192 


srem 32 
srem 212 
srem 14 
srem 202 
srem 205 
srem 79 
PRINT"MAD 
srem 156 
srem 48 
srem 188 
srem 146 
srem 76 
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230 DATA 3,213,192,3,255,192,3,255,192 srem 74 

240 DATA 1,255,128,0,255,0,0,66,0 srem 64 

250 DATA 0,66,0,0,231,0,0,0,0 srem 99 

260 DATA 0,0,0,0,0,0,0,0,0 srem 194 

The only lines that may look unfamiliar are lines 80 and 90. 
Line 80 moves the sprite across the screen. When the X coordi¬ 
nate equals 255, in other words, when the seam is encoun¬ 
tered, the V +16 register is turned on for the 0 sprite. X is reset 
to 0. Line 90 prints a message only when the sprite reaches the 
far right-hand side (X = 91) and only when the V +16 register is 
turned on (PEEK(V +16) AND 1) = 1. If this were omitted, then 
the message would be printed the first time X = 91, which 
would have been on the left side of the seam. 

Remember that once the seam is crossed, the X positions 
are renumbered, beginning with 0 again, and run to 88, the 
last X location which shows in the viewing area. If the sprite is 
moving to the left, and crosses the seam, then the V+16 
register must be turned off by using: 

POKE V + 16,PEEK(V +16) AND 254:POKE V + 0,255 

The sprite moves over the seam and is placed at the far right- 
hand side of that part of the screen. Although you could use 
the statement POKE V -I- 16,0:POKE V + 0,255 instead, it's good 
programming practice to use the PEEK method, for there will 
be times you'll have more than one sprite on the screen. 

To move the sprite back to the left, you need to add 
another loop, much like you did when you moved the sprite in 
only the left-hand side of the screen. To make the sprite move 
back and forth across the screen, you would add these lines: 

Program 7-4. Back and Forth 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

80 X=X+1:IP X>255 THEN POKE V+16,PEEK(V+16)OR 1:X= 
1 srem 78 

90 IF (PEEK( V+16) AND 1)=1 AND X=91 THEN GOTO 110 

srem 229 

110 POKE V+0,XSPOKE V+l,Y srem 150 

120 X=X-1sIF X=0 THEN POKE V+16,PEEK(V+16)AND 254$ 
X=255 srem 21 

125 IF (PEEK(V+16)AND 1)=0 AND X=1 THEN GOTO 60 

srem 174 

130 GOTO 110 :rem 95 
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Lines 110 and 120 POKE in the sprite's location and move 
it to the left (X = X -1). When the seam is reached (X=0), the 
V +16 register is turned off and X is reset to 255. Line 130 tests 
to see if the sprite has reached the X = 1 location on the left side 
of the seam. If it has, the process repeats as the program 
moves back to line 60. 

More Than One Sprite 

Turning one sprite on or off is relatively simple. Once you have 
several sprites on the screen, all of them moving from one side 
of the seam to the other, it can get more difficult. 

To turn on more than one sprite, for instance, you have to 
add together the sprite values when you POKE V 4- 16 r x. If 
both sprites 1 and 3 were crossing the seam, for example, you 
would POKE V+16,10. But if you wanted to allow only one of 
the sprites to cross the seam, you would use a different type of 
POKE statement. 

If you had a number of sprites on the screen, and wanted 
only sprite 0 to move from the right-hand section to the left- 
hand section, you couldn't just POKE V +16,0. This would 
force all the sprites to move to the left-hand side of the seam. 
Instead, you could use: 

POKE V + 16,PEEK(V + 16)AND(255 -1) 

Change the 1 in (255 -1) to 2, 4, 8, 16, 32, 64, or 128 for the 
other seven sprites. 

This clears only sprite 0's bit, so it will be the only one to 
move to the left of the seam. You can use the logical AND to 
turn off just one sprite, leaving the others on, for any of the 
other sprite functions where all the sprites share a single 
register. 

You would do something similar to move one sprite to the 
right of the seam. In order to keep other sprites which may 
already be in that section of the screen in place, you could use 
the logical OR. 

POKE V + 16,PEEK(V + 16)OR 1 

OR 1 could be replaced by OR 2, 4, 8, 16, 32, 64, or 128, 
depending on the sprite. 

This allows the 0 sprite to move to the right of the seam, 
but does not disturb any of the others. You'll use this method 
of moving sprites from one side of the seam to the other 
constantly. If you're unfamiliar with the concept of the logical 
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AND and OR, refer to Chapter 4, Custom Characters, where it 
is explained in detail. 

More about the Seam 

To move a sprite completely across the screen and have it reap¬ 
pear on the left-hand edge can also be complicated. As the 
sprite nears the right edge, you would normally POKE 
V+16,0 to allow it to return to the left-hand section, then 
POKE a new X coordinate to show it in its new location. 

Unfortunately, if you POKE V + 16,0 while X = 91 (just off the 
right side of the visible area), the sprite will appear for a 
moment in the X = 91 location on the left side of the seam. If 
you reverse the order of the statement and first set X = 0, then 
POKE V +16,0, the sprite will flash in the X = 0 location on the 
left side of the seam. 

To prevent this, you can turn the sprite off just before this 
process and then turn it back on after both the POKE V+16,0 
and X = 0 have been executed. The program below does this. 


Program 7-5. Smooth Sprite Movement 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


10 PRINT”{CLR}”sPOKE 53281,0sV=53248:X=50:Y=120 

srem 247 


20 FOR X=0TO63:READ As POKE 
30 POKE 2040,192 
40 POKE V+21,1 
50 POKE V+39,4 
60 POKE V+0,X 


12288+X,AsNEXT srem 136 
srem 32 
srem 212 
srem 225 
srem 202 


70 POKE V+l,Y srem 205 

80 X=X+2 sIF X>255 THEN POKE V+l6,PEEK(V+16) OR lsX 
=1 srem 79 

90 IF (PEEK(V+16) AND1)=1 AND X=91 THEN 120 

srem 173 

100 GOTO 60 srem 48 

120 POKE V+21,0sX=0sPOKE V+0,XsPOKE V+16,PEEK(V+16 
) AND 254sPOKE V+21,1sGOTO60 srem 107 


200 DATA 0,0,0,0,0,0,7,255,224,15,255,240,25,36,15 
2,31,255,248,15,255 srem 27 

210 DATA 240,7,255,224,0,24,0,32,189,4,49,255,140, 
43,255,212,36,60,36,40,24 srem 87 

220 DATA 20,48,36,12,32,90,4,0,189,0,1,126,128,3,0 
,192,0,0,0,0,0,0,36,40,24 srem 35 
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The sprite is set up in the way you've already used. Lines 10-70 
draw the sprite and place it on the screen at location 50,120. 
Line 80 moves the sprite to the right, constantly checking for 
the seam. Notice that it moves faster than your previous 
sprites because X = X + 2. You can change this to a larger 
number, but the movement will seem jerkier. Once the X posi¬ 
tion reaches 255, the V+16 register is turned on and X is reset. 

Line 90 checks to see if the far right-hand side of the 
screen is reached. When it is (X = 91), the sprite is turned off 
(V+21,0), X is reset, and the program moves to line 120. 

Line 120 POKEs the X location in again, sets the V +16 
register back to zero to indicate the sprite is on the left side of 
the seam, and then turns the sprite back on. 

Note the use of the logical AND and OR in this program. 
It's a good idea to always use this form, in case there is more 
than one sprite on the screen at a time. 

You can move your sprite almost any direction on the 
screen, even across the troublesome seam on the 64. The 
patterns you've used so far, however, are rather predictable. In 
a game, a player would quickly discover that pattern. It might 
not be much of a game. Fortunately, programming sprites to 
make random movements isn't that difficult. 

The Random Factor 

Computer-controlled sprites that move randomly make for 
more difficult opponents. They can move in different patterns 
each game, or even during each pass across the screen. 

The random generator in the 64 allows you to place and 
move sprites in this less predictable way. Each time a sprite 
moves on the screen, for example, you could have it change its 
altitude (Y position) or its speed (X + n). You can randomly set 
the number of sprites on the screen, the angle at which they 
move, or when they attack the player-controlled character. 

To create this random effect, you'll use the RND function 
in your program. To produce a random number R between 0 
and 3, for instance, the form would be: 

R = INT (RND(9)*4) 

This is the same form you used to create random screen 
displays in Chapter 3. If you've forgotten how to create 
random numbers, refer to the section in that chapter. 

You can create minimums and maximums using the RND 
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function, as well as fractions if you wish. But once you have a 
random number, what can you do with it? 

If you want to vary the speed of a sprite each time the 
main loop is executed, you could add these lines to Program 
7-3. 


Program 7-6. Random Sprites 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


75 R=INT(RND(9)*4)+1 :rem 95 

80 X=X+R:IF X>255 THEN POKE V+16,PEEK(V+16)OR 1:X= 
1 :rem 111 


90 IF (PEEK(V+16) AND 1)=1 

110 POKE V+0,XSPOKE V+1,Y 
115 R=INT(RND(9)*4)+l 
120 X=X-R:IF X<0 THEN POKE 
X=255 

125 IF (PEEK(V+16)AND 1)=0 
130 GOTO 110 


AND X>91 THEN GOTO 110 
srem 230 
srem 150 
srem 138 
V+16,PEEK(V+16)AND 254s 
srem 53 

AND X<4 THEN GOTO 60 

srem 176 
srem 95 


Lines 75 and 115 create the random numbers ranging from 1 to 
4. X = X + R in line 80 and X = X - R in line 120 move the sprite 
across the screen at varying speeds. Notice that it was neces¬ 
sary to change the X = 91 to X>91 in line 90 and the X=0 to 
X<0 in line 120. This prevents any ILLEGAL QUANTITY error 
messages. Line 125 includes the value X<4 for the same 
reason. You can't POKE in negative numbers, remember. 

To show random movement in a different way, take a look 
at the program below. This is a variation of Program 7-3, but 
now it POKEs in the X position of the sprite randomly. The 
sprite appears in different X locations, ranging from 24 to 255, 
but stays on the same Y location "line." The delay loop is 
necessary to see the sprite's change of position. In a game, this 
would make the sprite a difficult target. 

Program 7-7. Random Appearances 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 PRINT"{CLR}":POKE 53281,0sV=53248:X=20:Y=120 

:rem 244 
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20 FOR X=0 TO 62:READ AsPOKE 12288+X,A:NEXT 

srera 135 

30 POKE 2040,192 srem 32 

40 POKE V+21,1 srem 212 

50 POKE V+39,10 srem 14 

55 X=INT(RND(9)*232)+24 srem 251 

60 POKE V+0,X srem 202 

70 POKE V+l,Y srem 205 

80 FOR T=0 TO 500sNEXT T srem 21 

100 GOTO 55 srem 52 

200 DATA 0,0,0,0,0,0,0,0,0 srem 188 

210 DATA 0,0,0,0,126,0,0,255,0 srem 146 

220 DATA 1,255,128,3,255,192,3,255,192 srem 76 

230 DATA 3,213,192,3,255,192,3,255,192 srem 74 

240 DATA 1,255,128,0,255,0,0,66,0 srem 64 

250 DATA 0,66,0,0,231,0,0,0,0 srem 99 

260 DATA 0,0,0,0,0,0,0,0,0 srem 194 

Line 55 creates a random number from 24 to 256, the X coordi¬ 
nate positions in the screen to the left of the seam. The delay in 
line 80 simply slows down the movement so you can see it 
working. 

You can also move the sprite in random directions by 
using the RND function. The sprite will not move quickly in 
the following program, but it will move unpredictably. It's a 
matter of setting up several IF/THEN statements, each 
executed when a particular number is created by the RND 
function. The sprite creation and design are similar to the other 
sample programs you've already seen in this chapter. Notice 
lines 80-110, which contain the IF/THEN statements. 

Program 7-8. Random Directions 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 PRINT"{CLR}"sPOKE 53281,0sV=53248;X=20$Y=120 

srem 244 

20 FOR X=0 TO 62:READ AsPOKE 12288+X,AsNEXT 

srem 135 

30 POKE 2040,192 srem 32 

40 POKE V+21,1 srem 212 

50 POKE V+39,10 srem 14 

60 POKE V+0,X srem 202 

70 POKE V+l,Y srem 205 

72 FOR T=0 TO 200sNEXT T srem 19 

75 R=INT(RND(9)*4) srem 3 

80 IF R=0 THEN X=X+5sGOTO 60 


srem 11 
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90 IF R=1 THEN X=X-5:G0T0 60 

100 IP R=2 THEN Y=Y+5:GOTO 60 

110 IF R=3 THEN Y=Y-5:G0T0 60 

200 DATA 0,0,0,0,0,0,0,0,0 

210 DATA 0,0,0,0,126,0,0,255,0 

220 DATA 1,255,128,3,255,192,3,255,192 

230 DATA 3,213,192,3,255,192,3,255,192 

240 DATA 1,255,128,0,255,0,0,66,0 

250 DATA 0,66,0,0,231,0,0,0,0 

260 DATA 0,0,0,0,0,0,0,0,0 


:rem 15 
srem 56 
srem 60 
srem 188 
srem 146 
srem 76 
srem 74 
srem 64 
srem 99 
srem 194 


A number from 0 to 3 is created in line 75. Depending on the 
number generated, the sprite will move to the right, the left, 
down, or up five pixels. The delay loop in line 72 was added to 
slow down the sprite's motion. Remove line 72 to see an 
entirely different effect. 

Of course, in a game, you would have to add lines that 
would test to see if the sprite had reached any of the four 
borders of the display area. (If you let this program run long 
enough, eventually you'll see an ILLEGAL QUANTITY error 
message.) 

Randomness in a game can create difficult opponents for 
the player. Sometimes too difficult. Keep in mind that every 
player will be slower than the computer-controlled sprites. You 
can make the game too hard by making the characters too 
unpredictable. Experimenting with your own game design, 
you'll quickly find out that often the best use of any game 
design tool is in moderation. It's difficult to enjoy a game when 
it feels as if you have no control at all over its course. Most 
players want to feel it was skill, not luck, that allowed them 
to win. 


Intelligent Sprites 

Using simple and random sprite movements, you can create 
opponents that may be difficult, and, at times, impossible for a 
player to beat. Many times this would depend on the sheer 
number of computer-controlled figures. If there is a large 
number, the player is simply overwhelmed. Many arcade 
games use this technique. Defender, for example, eventually 
throws so many opponents at the player's ship that it's impos¬ 
sible to continue. 

At times, however, you'll want something more than over¬ 
whelming numbers to challenge your game's players. If a 
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player discovers that outguessing the computer-controlled 
characters makes more of a difference than eliminating a seem¬ 
ingly inexhaustible supply, he or she will play the game longer, 
and with more interest. 

Intelligent sprites are one solution to this problem. 
Programming intelligent sprites is the most difficult way to 
make sprites move, but it is potentially the most rewarding. If 
you can program a sprite to maneuver, even defeat the player, 
you've accomplished a great deal. 

Creating intelligent sprites is a matter of using a number 
of IF/THEN statements in the game program, outlining how 
the sprite reacts to the player-controlled character. When you're 
using BASIC, however, you'll quickly notice that a program 
slows down as more and more IF/THEN statements are added. 
Again, you must decide if the added intelligence of sprites is 
worth the slowing of a game's actions. Often you must 
compromise your ideal game, keeping such things as intelli¬ 
gent sprites to a minimum just to keep the game moving at an 
acceptable speed. 

Homing In 

One of the most popular and useful ways of programming 
intelligent sprites is to create computer-controlled figures that 
home in on the player's character. Most arcade-style games that 
use intelligent opponents use this technique. After a while in 
Joust, for instance, the enemy knights begin to move toward 
your knight quicker and in a more direct line. You can dupli¬ 
cate this by programming several sprites. 

To do this, you program the sprite so that it moves on the 
screen, checks to see where the player's figure is, and then 
moves in that direction. No matter where the player's character 
is, the sprite moves toward it. The quickness or slowness with 
which the sprite moves determines how hard or easy it will be 
for the player to evade it. 

Look at the program below for a moment, then type it in 
and run it. It's a short game that uses two sprites. You control 
one using the keyboard. The pattern of keys is: f5=up; 
f7=down; Commodore key=left; and SHIFT=right. The 
sprite with flashing windows is controlled by the computer, 
and will move to intercept your sprite. 
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Program Explanation: 

Line Explanation 

10-80 Create the four sprite drawings. There are three 

pictures of the space station (to make it seem to flash) 
and one of the space saucer. The sprites are turned 
on; the mutlticolor mode is enabled; color is placed, 
and located onto the screen. 

90 POKE in the new location of the player-controlled 
sprite. 

100 Animate the space station sprite by establishing a 

pointer P, which can be incremented each time the 
main loop executes. This causes the small changes in 
the station's windows as it moves across the screen. 

110-140 Read the keyboard to move the space saucer. The 
keycodes are read by PEEKing location 197 for the 
two function keys, and location 653 for the Commo¬ 
dore and SHIFT keys. Depending on which key is 
pressed, the saucer moves in one of four directions. 

150-180 Check to see if the space saucer is near the seam on 
the screen. If it is, and moving from left to right, the 
appropriate POKEs are executed. 

190 Force the sprite to remain on the screen. It cannot 
move off to the left. Similar lines could be added to 
keep it on the screen near the other three borders. 

200 Check to see if the homing sprite is within 30 pixels 
of the player-controlled sprite. If it is, it stops 
moving. The ASB function returns the absolute value 
of a number, without any signs. All values returned 
are thus positive. 

205 Use the SGN function to create a 1, 0, or — 1. If the 
argument (XI - A or Y1 - B) is positive, the result is 
1; if zero, the result is also 0; and if negative, the 
result is — 1. Two is added so that the value of Q or 
QQ is always positive. This value is then used in line 
210 to execute the appropriate line. The value of F is 
also set in this line. 

210 Depending on the result of the SGN function in line 
205, the program executes one of the four lines from 
230 to 260. If SGN(X1 - A) equals a positive 
number—in other words, if the player's sprite is to 
the right of the computer-controlled sprite—line 240 
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is executed, moving the computer's sprite to the 
right. 

220 Check to make sure that the computer's sprite stays 
in the sprite viewing-area. 

230-260 Move the station sprite toward the saucer. 

270-275 Keep the station on the screen. 

500-690 DATA statements for all four sprite drawings. The 
first three pictures are of the space station in its 
various stages of animation, while the fourth is the 
space saucer. 


Program 7-9. Avoid the Ship 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


10 

FOR 

X = 0 

TO 62 s 

READ A; 

POKE 

12288 

+ X, As NEX 


T 






srem 134 

20 

FOR 

X = 0 

TO 62 s 

READ A; 

POKE 

12352 

+ X, As NEX 


T 






srem 127 

30 

FOR 

X = 0 

TO 62 s 

READ As 

POKE 

12416 

+ X,As NEXT 








srem 129 

40 

FOR 

X = 0 

TO 62; 

READ As 

POKE 

12736 

+ X, A; NEX 


T 






srem 135 

50 

PRINT"{CLR}"s V 

= 53248s 

POKE 

53281, 

0s P = 192s 


XI 

= 50 s 

Yl=50s 

A=168s 

B=148 


srem 63 

60 

POKE 2040, 

Ps POKE 2041, 

199 


srem 214 


70 POKE V+21,255: POKE V+28,255: POKE V+39,ls FOR 
{SPACE}X=0 TO 6:POKE V+40 +X,3: NEXT srem 121 
80 POKE V + 37, 2: POKE V+ 38, 15; POKE V +16, 0 

srem 116 


90 POKE 2040, Ps POKE V, A; POKE V + 1, B: POKE V 
{SPACE}+ 2, XI; POKE V + 3, Y1 srem 51 

100 P=P+ls IF P = 195 THEN P= 192;REM ANIMATIO 
N SEQUENCE srem 46 

110 IF PEEK (197) = 6 THEN Y1 = Y1 - 3s REM UP 

srem 78 

120 IF PEEK (653) = 1 THEN XI = XI + 3s REM RIGHT 

srem 28 

130 IF PEEK (197) = 3 THEN Y1 = Y1 + 3; REM DOWN 

srem 222 

140 IF PEEK (653) = 2 THEN XI = XI - 3s REM LEFT 

srem 206 


150 REM CHECK FOR SEAM FOR SAUCER srem 143 

160 IF Xl>252 AND PEEK(653)=1 THEN POKE V+16, PEEK 
(V+16) OR 2s POKE V+2,0s X1=0 srem 38 

170 IF XI > 91 AND PEEK (V+16) AND 2=2 THEN XI = 
91 srem 92 
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IFX1< 3ANDPEEK(V+l6)AND2=2ANDPEEK(653)=2THENX1= 
255sPOKEV+16,PEEK(V+16)AND253 srem 244 

IPX1<0THENX1=0 srem 67 

IF(ABS(X1-A)+ABS(Y1-B))<30 THEN 90 srem 18 

Q=SGN(Xl-A)+2sQQ=SGN(Yl-B)+2sF=2 srem 73 

ON Q GOSUB 230,230,240SON QQ GOSUB 250,250,260 

srem 48 

Q=AsGOSUB 270sA=Q s Q=B s GOSUB 270sB=QsGOTO 90 

srem 2 

A=A-Fs RETURN s rem 225 

A=A+FsRETURN srem 224 

B=B-F s RETURN s rem 229 

B=B+FsRETURN srem 228 

IF Q<50 THEN Q=50 srem 60 

IF Q>229 THEN Q=229 srem 179 


RETURN srem 122 
REM CENTER #1 DATA srem 168 
DATA 252,0,63,240,0,15,192,0,3,192,60,3,192,25 

5,3,195,255,195,207,255,243 srem 197 
DATA 255,255,255,54,89,108,54,89,108,63,255,25 
2,57,101,156,57,101,156 srem 41 
DATA 255,255,255 srem 222 
DATA 207,255,243,195,255,195,192,255,3,192,60, 
3,192,0,3,240,0,15,252,0,63 srem 200 
REM CENTER #2 DATA srem 174 
DATA 252,0,63,240,0,15,192,0,3,192,60,3,192,25 

5,3,195,255,195,207,255,243 srem 202 
DATA 255,255,255,57,101,156,57,101,156,63,255, 
252,54,89,108,54,89,108 srem 46 
DATA 255,255,255 srem 227 
DATA 207,255,243,195,255,195,192,255,3,192,60, 
3,192,0,3,240,0,15,252,0,63 srem 205 
REM CENTER #3 DATA srem 171 
DATA 252,0,63,240,0,15,192,0,3,192,60,3,192,25 

5,3,195,255,195,207,255,243 srem 198 
DATA 255,255,255,53,150,92,53,150,92,63,255,25 
2,53,150,92,53,150,92 srem 180 
DATA 255,255,255 srem 223 
DATA 207,255,243,195,255,195,192,255,3,192,60, 
3,192,0,3,240,0,15,252,0,63 srem 201 
REM SAUCER DATA srem 92 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,60,0,0,255,0,2,170,128,6 srem 43 
DATA102,96,42,170,168,255,255, 255,42,170,168 

srem 127 

DATA 10,170,160,2,170,128,0,195,0,0,0,0,0,0,0, 
0,0,0,0,0,0 srem 92 
IF XI < A THEN A = A - 2s IF A < 0 THEN A = 0 

srem 212 
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Lines 200-280 allow the station to track down your character. 
The X and Y coordinates are compared, and the station sprite 
is moved in the same direction as your figure. Notice that the 
station does not move to the right of the seam, although your 
saucer can. This may be something you'll want to use in your 
own game. It could be useful as a safe area for a player- 
controlled sprite. 

By reversing this process, you can create a sprite that will 
avoid your character. Changing lines 200 - 210 will do this. 

Program 7-10. Catch the Ship 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

200 IF(ABS(X1-A)+ABS(Y1—B))>50 THEN 90 trem 22 

205 Q=SGN(X1-A)+2:QQ=SGN(Y1-B)+2:F=4 srem 75 

210 ON Q GOSUB 240,240,230:ON QQ GOSUB 260,260,250 

srem 50 

Now the station will race away from your saucer, but only after 
it's gotten close to the station. Line 200 sets the distance at 
which the station begins moving. Line 210 reverses the order 
of the ON/GOSUB statements, so that the station moves away, 
not toward the saucer as it did in the earlier version of the 
program. The saucer will never quite catch the station, since 
the latter moves faster. Changing the value of F in line 205 will 
allow the saucer to eventually overtake the station. 

Programming intelligent sprites is not impossible. Trade¬ 
offs must be made, however, when you decide to use this 
method of sprite movement. It does make the program more 
complicated and tends to slow down movement. In combina¬ 
tion with other movements, it can add an arcade-like element 
to your game. Random movements, along with some intelli¬ 
gent sprites, can make for an exciting, challenging game. 

Making It Easier 

One of the most difficult things about sprite movement on the 
Commodore 64 is the seam. As you've noticed, moving back 
and forth across the seam requires programming to test for the 
sprite's location and which direction it's moving, and then 
more programming to reset its X coordinate. You can avoid 
this complication by using only the area on the left side of the 
seam. 
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Although this shrinks the screen display area, you can use 
the right-hand side for such things as time displays, scores, 
and other player information. You'll see many games on the 64 
like this. 

All sprite movement then takes place only on the left-hand 
side of the screen. Characters can still move across the entire 
display area, but it may look strange when some figures cross 
the seam, while others don't. For this reason, you may want to 
create a border near the seam by POKEing into screen 
memory. For an example of this, see Chapter 3, which includes 
a routine for setting up a border. With only a few changes, you 
can move the left border toward the seam, saving everything to 
the right of that line for player information. 

Again, this is a compromise. To make things easier, you're 
sacrificing some of the 64's abilities. As game designer, you 
must decide what to keep and what to throw away. That's part 
of the fun of creating your own arcade-style game. 
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You've created character and sprite figures for your game and a 
playing field for them to live in. You've even made the 
computer control sprites as opponents. But so far your player 
has nothing to do. 

Most games allow the player to assume a character, estab¬ 
lishing some control over the game world. Joust, for example, 
lets the player become a knight on a strange steed. The player 
controls how this knight behaves. If the player wants the 
knight to fly to the left, it does. The game is won or lost 
depending on how the player uses this character. 

In order to control a character, the player has to have a 
way to tell the computer what it is to do. In most arcade 
games, a joystick does this. If the player presses the joystick to 
the left, the player's character moves to the left. Other games 
use buttons, similar to the keys on the Commodore keyboard, 
to operate the character. Still others use a paddle, as one of the 
first videogames. Pong, did. As the game designer and 
programmer, you have the option of deciding how the player 
will control the game's action. 

The Keyboard 

The keyboard is very versatile. Since the Commodore 64 has 66 
keys, you could conceivably give each a different function in a 
game. Of course, most games use only a few buttons or keys. 
But that doesn't mean the Commodore's keyboard should go to 
waste. Using the keyboard to move characters on the screen, 
the most common of all game controls, gives a great deal of 
precision to those movements. You can assign functions to 
keys in your game much like the arcade game Defender. That 
game uses buttons to control the four directions the player's 
character moves, as well as a button to fire, one for smart 
bombs, and another for jumping to hyperspace. If your game 
requires several different buttons or keys such as this, the 
keyboard may be your first choice. 

There are trade-offs, however. Unlike a joystick controller, 
which allows the player to move a character in eight different 
directions, the keyboard is usually restricted to only four. This 
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is not a problem with the keyboard, but with the player, for it's 
very difficult to operate more than four keys at a time with any 
accuracy. For this reason, in most games that use a keyboard, 
you'll usually see only the up, down, left, and right directions 
used. That doesn't mean you can't move a character diagonally, 
however. You'll see how that's done shortly. 

A keyboard, like any other game controller, is really just a 
series of switches. By changing which switches are on, and 
which are off, certain values are placed into the computer's 
memory locations. The 64 then looks to those memory 
addresses, and executes its tasks. 

Reading the Keyboard 

Normal BASIC INPUT and GET statements, although useful 
for other player operations, won't work too well in moving a 
figure. They're too slow. You'll want to get the player's instruc¬ 
tions directly from the hardware—the keyboard in this case. 

Every time a key is pressed on the 64, the operating 
system stores a code number at memory location 197. This is 
the key code, and it has no relation to either the ASCII or 
screen code. Location 653 is similar, except it holds the key 
code for the SHIFT, Commodore, and CTRL keys. Appendix H 
shows the key codes for every key on the 64 that can be read 
from those locations. 

Control matrix. When your program uses the keyboard for 
movement control, you'll want separate keys for left, right, up, 
and down, and perhaps keys to perform other functions, the 
way the joystick button is used in games to make a figure jump 
or shoot or disappear. 

But you can't use just any keys. You want players to put 
their fingers on the right keys and then forget about having to 
find them again. You wouldn't want to use 1 for left, * for right, 
X for up, and/2 for down. There's no sense to that 
arrangement. 

You might want to use the L, R, U, and D keys—but 
they're too far apart, and only touch-typists can remember 
which is which without constantly looking. You might want to 
use the cursor keys and have them perform their normal func¬ 
tions—but this means that keys change value depending on 
whether SHIFT is pressed or not, which can ruin the player's 
concentration in the middle of a game. 

The most common solution is to set up a control matrix, 
an arrangement of keys in which the key that moves up is on 
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top, down is at the bottom, left is at the left, and right is to the 
right: 

T @ 

F H : 

V / 

Here is a single program line that will read the keyboard 
using the matrix on the right (@ is up,: is left, = is right, and / 
is down). After executing this line, the variable LR will equal 1 
for right and -1 for left, and the variable UD will equal 1 for 
down and -1 for up. 

A = PEEK(197) :LR = (A = 45) - (A = 53) :UD = (A = 46) - (A = 55) 

Whenever an expression like A=45 is evaluated, it returns 
a value of either 0 or — 1. False equals 0 and true equals -1. So 
if A=45, then LR will equal -1 (true (-1) minus false (0)). If 
A = 53, however, LR will equal 1 (false (0) minus true (-1)). 
Remember that subtracting a negative number is the same as 
adding. If that sounds too much like math to you, remember it 
this way: 

Horizontal = (left?) - (right?) Vertical=(up?) - (down?) 

Inside the parentheses you put the expression: 

Keypress = Directionvalue 
So the whole thing looks like this: 

Keypress = PEEK(197) 

Horizontal = (Keypress = Leftvalue) - (Keypress = Rightvalue) 
Vertical = (Keypress = Upvalue)—(Keypress = Downvalue) 

Notice that if none of the four movement keys is pressed, the 
value of both LR and UD will be 0. 

Allowing diagonals. There is a drawback to the control 
matrix. Your computer will store only one key code at a time at 
location 197. If two keys are pressed at the same time, the key 
with the higher code value is the one that will show up. So you 
can't press the key that means up and the key that means right 
at the same time and get diagonal movement up and to the 
right. You can get only right or up. 

In most games that's good enough. Diagonal movements 
don't matter much. But if your game requires this kind of char¬ 
acter movement, there is a solution. Use SHIFT, Commodore, 
and/or CTRL for horizontal movement and any two other keys 
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for vertical movement. Since SHIFT, Commodore, and CTRL 
are read from location 653 and the rest of the keys are read 
from address 197, your program can read vertical and hori¬ 
zontal movement separately, and get diagonals when two keys 
are pressed at once. 

You may run into another problem using this method. 
SHIFT, Commodore, and CTRL can be pressed in combination, 
and then a different value is stored in location 653. This is easy 
to cope with. Here's a line that reads location 653 and makes 
the variable LR equal 1 if SHIFT is pressed, -1 if the Commo¬ 
dore key is pressed, and 0 if both or neither is pressed. 

LR = PEEK(653) :LR = (LR = 1) - (LR = 2) 

Or if you want the movement to be left if the Commodore 
key is pressed, regardless of whether SHIFT is pressed at the 
same time or not, use the line: 

LR = PEEK(653) AND 3:LR =(LR>1) - (LR = 1) 

Notice that this time we ANDed the value of 653 with 3; this 
was to make sure that if the CTRL key was accidentally 
pressed, it wouldn't force a movement to the left too, since the 
value of 653 will always be 4 or greater if CTRL is pressed. 

It's just as easy to read the values at location 197. Use/5 
and f7 as up-and-down controls. 

UD = PEEK(197) :UD = (UD = 6) - (UD = 3) 

Simple. After this program line is executed, UD will equal -1 
if the f5 key is pressed and 1 if the f7 key is pressed. 

Since UD and LR are read from separate locations, a 
player-controlled character can be moved diagonally, not just 
horizontally or vertically alone. 

Horizontal and Vertical Movement 

Except for erasing the figure in its old location, you've already 
done everything that's involved in horizontal and vertical 
movements. To move horizontally, you change the screen loca¬ 
tions by adding or subtracting 1. To move vertically, you add or 
subtract 40. Subtract to move up or left; add to move down or 
right. 

You can use the 1 or -1 from the key-reading routines 
directly for horizontal movement. But for vertical movement, 
you'll have to change the lines to reflect the fact that 40 must be 
added or subtracted. Here's what it would look like in the diag¬ 
onal movement routine. 
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UD = PEEK(197) :UD = 40*((UD = 6) - (UD = 3)) 

If f5 (the up key) is pressed, the value will be -40 (40*-1); if 
f7 is pressed, it will be 40 (40*1); and if an invalid key is 
pressed, the value will be 0 (40*0). 

Staying on the screen. There's one other concern. You 
don't want the figure to move off the screen. There are two 
options: you can make the figure stop at the edge of the screen 
or keep moving and reappear at the opposite edge. 

Both methods work the same way. First, the program 
checks to see if the player wants to move the figure. Then it 
calculates the new address where the figure will be POKEd. If 
the address is beyond the screen, then either the characters 
don't move at all, or the program changes the address so that 
the figures appear on the opposite side. Only then do you 
erase the figures at the old location and POKE them in at the 
new. 

A player-controlled movement routine. This simple 
program allows you to move a character around the screen 
using the same matrix we already discussed. When the figure 
reaches the edge of the screen, it will stop. 

Here's how the program works: 

Line Function 

10 Set the screen background color, clear the screen, and 
disable the character set shift. 

15 Establish variable values: SC = starting address of 

screen memory; OL = old location (starting at 1); 

FG = figure value—the screen code for the character 
to be moved; CM = starting location of color memory; 
and CL = character color (0, for black). Then POKE 
FG into SC + OL and CL into CM + OL to make the 
figure appear on the screen in the starting position. 

20 Start the main loop. Set A to the key code currently 
in location 197. Set LR for the horizontal instruction, 
UD for the vertical instruction. 

25 If both movement instructions (LR and UD) are 0, go 
back and look for a new key code value. 

30 Set NL to the new location for the figure 

(OL + LR + UD). Then GOSUB to one of the two 
edge-test routines, at 100 for the left/right test and 
200 for the top/bottom edge test. 

35 If NL has come back from the routines with the same 
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value as OL, go back to the start of the main loop 
without moving the figure. 

40 Erase the figure at the old location (OL) and POKE it 
into the new location (NL). Also POKE in the color 
location CM + NL,CL. Then set OL to equal NL and 
go back to the start of the main loop. 

100 Left/right edge test subroutine. EH is set to a number 
from 0 to 39, representing which horizontal position 
on the line the figure will be at if the movement is 
actually executed. 

110 If the figure will be in the leftmost position (EH = 0) 

and got there by moving right (LR=1), that means 
the figure crossed the right-hand edge of the screen 
and the move isn't allowed. Likewise, if the figure 
will be at the rightmost position (EH=39) and got 
there by moving left (LH = -1), that means the 
figure crossed file left-hand edge of the screen. The 
movement is cancelled in either case by setting NL 
equal to OL. 

120 RETURN to line 35. 

200-210 Top/bottom edge-test subroutine. This test is easier. If 
the new location will be off the top of the screen 
(NL<0) or the bottom (NL>1000), the movement is 
not allowed. 


Program 8-1. Character Movement with POKE 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 POKE 53281,1sPRINT"{CLR}":POKE 657,128 :rem 96 
15 SC=PEEK(648)$CM=55296sSC=SC*256sOL=lsCL=0$FG=90 
sPOKE SC+OL,FGsPOKE CM+OL,CL srem 171 

20 A=PEEK(197)sLR=(A= 45)-(A=53)sUD=40*((A=46)-(A=5 
5)) s rem 54 

25 IF LR=0 AND UD=0 THEN 20 srem 107 

30 NL=OL+LR+UDsON-(LR<>0)-2*(UD<>0)GOSUB 100,200 

srem 235 

35 IF NL-OL THEN 20 srem 250 

40 POKE SC+OL,32sPOKE SC+NL,FGsPOKE CM+NL,CLsOL=NL 
sGOTO 20 s rem 247 

100 EH=INT(NL/40)sEH=NL-40*EH srem 170 

110 IF (EH=0 AND LR=1) OR (EH=39 AND LR=-1) THEN N 
L=OL srem 32 

120 RETURN srem 115 
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200 IF NL>1000 OR NL<0 THEN NL=OL srem 2 

210 RETURN srem 115 

Moving sprites. Controlling sprite movement with the 
keyboard is even easier. Using the matrix for diagonal move¬ 
ment (f5 = up, f7 = down. Commodore=left, SHIFT=right), 
you can move a sprite about the screen. The following 
program uses only the part of the screen to the left of the seam 
and the sprite remains on the screen at all times. This simpli¬ 
fies the programming. 

This is how the program functions: 

Line Function 

10 GOSUB to subroutine at 300, which sets up the 
sprite. 

20 POKE in the X and Y coordinate positions of the 0 
sprite. 

30-60 PEEK to check which key was pressed, then move 
the sprite accordingly. Notice that the sprite moves 
faster since it uses increments of three pixels each 
time it changes position. If the sprite reaches a border 
(either an actual border or the seam), it stops and 
waits for another key to be pressed. 

70 Send the program back to line 20, where the new X 
and Y coordinate positions are POKEd in. 

300 Set variables for V, X and Y. Clear the screen and set 
background color to white. 

310 READ the sprite DATA and place it in memory 
starting at 12288. 

320 Enable sprite, set sprite pointer, and set sprite color 
to black. 

500-520 Sprite DATA numbers. 

Program 8-2. Keyboard Sprite Movement 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 GOSUB 300 srem 116 

20 POKE V+0,Xs POKE V+1,Y srem 102 

30 IF PEEK(653)=1 THEN X=X+3sIF X>255 THEN X=255 

srem 73 

40 IF PEEK(653)=2 THEN X=X-3:IF X<24 THEN X=24 

srem 223 
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50 IF PEEK(197)=3 THEN Y=Y+3:IF Y>229 THEN Y=229 

srem 86 

60 IF PEEK(197)=6 THEN Y=Y-3:IF Y<50 THEN Y=50 

srem 234 

70 GOTO 20 srem 2 

300 V=53248SPRINT"{CLR}"sPOKE 53281,1:X=160:Y=100 

srem 90 

310 FOR 1=0 TO 63 sREAD AsPOKE 12288+1,A:NEXT 

srem 156 

320 POKE V+21,1sPOKE 2040,192sPOKE V+39,0sRETURN 

srem 200 

500 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,16,0,0,1 
6,0,0,16,0,0 srem 91 

510 DATA 56,0,0,124,0,0,170,0,1,85,0,1,255,0,1,255 
,0,0,170,0,1,41,0 srem 136 

520 DATA 2,40,128,0,0,0,0,0,0,0,0,0,0,0,0,0 

srem 230 

Wrapping around. With this next program, we'll change 
several things as we move a character. First, instead of 
POKEing the figure on the screen, we'll PRINT it there. 
Second, instead of reading the control matrix, we'll read the f5, 
f7, Commodore, and SHIFT matrix, as with the sprite move¬ 
ment program. 

Here's how the program operates: 

Line Function 

5 Set up the string array V$(n), in which each value of 

V$ PRINTS HOME and the same number of 
CURSOR-DOWN characters as the subscript. In 
other words, V$(10) PRINTS HOME and ten 
CURSOR-DOWN characters; V$(2) PRINTs two 
HOME and two CURSOR-DOWN characters. 

10 The same as line 10 in Program 8-1, Character POKE 
Movement. 

15 Set the string FG$ to the character that will become 
the figure PRINTed on the screen. Set NV to the row 
and NH to the column where the figure first appears. 
Skip the next few lines to execute the PRINT routine 
at line 40. 

20 The beginning of the main loop. Set A to the value of 
the key pressed; set B to the value from SHIFT and 
Commodore. 

25 Set H to -1 (left) if Commodore or (SHIFT and 
Commodore) was pressed (B>1), or 1 (right) if 
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SHIFT was pressed (B = 1). Set V to -1 (up) if f5 was 
pressed, or to 1 (down) if f7 was pressed. If SHIFT 
and Commodore are not pressed, set H to 0; if 
neither f5 nor f7 is pressed, set V to 0. 

30 Set NV (New Vertical position) to OV (Old Vertical 
position) plus V (Vertical Movement). If OV is set at 
the last valid row, 23, and V calls for a movement 
down (+1), subtract 23; if OV is at 0 and V calls for a 
movement up (-1), add 23. 

35 Set NH (New Horizontal position) to OH (Old Hori¬ 
zontal position) plus H (Horizontal movement). If 
OH is set at the last valid column, 39, and H calls for 
a movement right (+1), subtract 38; if OH is set at 0 
and H calls for a movement left (-1), add 38. 

40 Skip down the number of rows from HOME to the 
row where the figure is located (PRINT V$(OV)), 
move right the number of columns to the figure's 
location (TAB(OH)), and erase the figure by printing 
a blank character (" "). Repeat the process, using 
only the new location values (NV and NH) so you 
can PRINT the figure (FG$) at the new position. 

45 Set OH and OV to the current figure position (NH 
and NV), and go back to 20 to get the new instruc¬ 
tions from the player. 

Program 8-3. PRINT Character Movement 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

5 DIM V$(24)sV$(0)="{HOME}"sFOR 1=1 TO 24:V$(I)=V$ 
(I-l) + “{DOWN}" .-NEXT srem 224 

10 POKE 53281,1sPRINT"{CLR}{BLK}":POKE 657,128 

srem 240 

15 FG$="j5" sNV=12sNH=20sGOTO 40 srem 54 

20 A=PEEK(197)sB=PEEK(653)AND3 srem 202 

25 H=(B>1)-(B=1)sV=(A=6)-(A=3)sIF V=0 AND H=0 THEN 

20 srem 194 

30 NV=OV+V+24*((OV=23 AND V=1)-(OV=0 AND V=-l)) 

srem 249 

35 NH=OH+H+39*((OH=38 AND H=1)-(OH=0 AND H=-l)) 

srem 168 

40 PRINT V$(OV);TAB(OH);" "?V$(NV);TAB(NH);FG$ 

srem 105 

45 OH=NHsOV=NVsGOTO 20 srem 104 
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In-line logic. If you aren't an experienced programmer, 
the logic in lines 30 and 35 may look complicated to you. Since 
this kind of statement saves you from having a lot of IF state¬ 
ments and extra lines, it might be worth looking more closely 
at what is going on. Let's take a closer look at line 35: 

35 NH=OH+H+39*((OH=38 AND H=1)-(OH=0 AND H=-l)) 

srem 168 

The first part is pretty clear-cut. We are setting NH to equal 
OH, the old horizontal position, plus H, the player's horizontal 
movement instruction. H might be 0, of course, in which case 
this entire line will do nothing but add 0 to OH, so that NH 
and OH are the same. 

The rest of the line causes the wraparound. Look at the 
last 17 characters of the line: - (OH = 0 AND H=-1)). If the 
figure was already in column 0 (OH = 0) and the movement 
called for is left (H = 1), both conditions are true and the value 
within the parentheses is — 1. But we are subtracting that value, 
so that, in effect, if the result is true we will add 1. Now look at 
the rest of that expression. 

If the second half is true, the first half (OH=38 AND 
H=1) must be false. It will then equal 0. So the whole expres¬ 
sion within parentheses evaluates as 0 - (-1) or 0 +1. 

That number is multiplied by 39, with a result of 39, which 
is added to OH -I- H. Since we know that OH = 0 and H is -12, 
that means that NH is set to 0 -1 + 39, or 38. Now the PRINT 
instruction in line 40 will TAB to column 38, the last legal 
column. 

What the player sees is that he or she told the figure to 
move left, and the figure jumped from the leftmost column to 
the rightmost position on the screen. That's called 
wraparound. 

Now you'll see that if the first condition is true, the second 
will be false, and we'll be setting NH to the value of 38 +1 - 39, 
or 0, and the figure will jump from the right edge of the screen 
to the leftmost position. 

And if neither condition is true, 39*(0 -0) gives 0, and NH 
will simply equal OH+H—the normal movement will take 
place. 

This keyboard routine, which includes the wraparound 
feature, is used in ''Mission: Nova!," the game we're devel¬ 
oping throughout this book. Take a look at Chapter 9 to see 
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how this movement routine was added to an actual game 
program. 

Wrapping sprites. Making player-controlled sprites wrap 
around the screen is similar to the programming you did in 
Chapter 7, when your computer-controlled sprites disappeared 
at one edge and reappeared at the opposite border. Because of 
the problem with the seam, additional POKEs are required to 
check to see if the sprite has reached the seam, to cross the 
seam, and then to reset the X coordinate position. These condi¬ 
tions must be constantly checked when you use BASIC to 
move sprites, so the movement slows down somewhat. To see 
a sprite wrap around the screen in horizontal movement, you 
need to change only two lines of Program 8-2, Keyboard Sprite 
Movement, and add two new lines. 

The changes work like this: 

Line Function 

30 Move the sprite to the right, checking for the seam 
(X>255). When the seam is reached, POKE V+16,1 
to enable the 0 sprite to cross. Reset X to 0. 

35 Check to see if the sprite is at the far right-hand edge 
of the screen. If it is (X 65 AND PEEK (V + 16) = 1), 
the V +16 register is turned off (V+16,0) and its X 
coordinate is reset to 1. 

40 Move the sprite to the left, checking for the seam (IF 
X<1 AND PEEK(V +16) = 1). When the seam is 
reached, the V +16 register is turned off and X is 
reset to 255. 

45 Check to see if the far left-hand edge of the screen is 
reached (IF X<1 AND PEEK(V +16) = 0). When the 
edge is reached, turn on the V +16 register and reset 
X coordinate position to 65, the location at the far 
right-hand edge of the screen. 

Program 8-4. Wrapping Around Sprites 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

30 IF PEEK(653)=1 THEN X=X+3sIF X>255 THEN POKE V+ 
16,1:X=0 :rem 139 

35 IF X>65 AND (PEEK(V+16)=1) THEN POKE V+16,0:X=1 

srem 138 

40 IF PEEK(653)=2 THEN X=X-3:IF X<1 AND PEEK(V+16) 
=1 THEN X=255sPOKE V+16,0 srem 44 
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45 IF X<1 AND PEEK(V+16)=0 THEN X=65sPOKE V+16,1 

:rem 56 

The sprite doesn't wrap around in the Y direction in this 
sample, although it would be relatively easy to do. Notice that 
as you add more lines to the movement loop, as we did in this 
program, the more the sprite slows down. In Program 8-4, for 
instance, the sprite moves much faster in the vertical direction 
than in the horizontal since the program does not have to 
check for the seam or the edges of the screen. You may want to 
restrict your sprites' movements to the screen area, perhaps 
even to just the portion to the left of the seam, to speed them up. 

Heading the Joystick 

Joysticks are the most commonly used game controllers today, 
although that doesn't mean you have to include them in your 
game. Oftentimes keyboard controllers will work fine. Some¬ 
times, however, you'll want your players to use joysticks. They 
are more convenient in some ways, for they allow the player to 
move a character easily with only one hand, leaving the other 
free to press keys, for instance. Most joysticks also include a 
fire button, which you can program to serve almost any func¬ 
tion you wish. Of course, many games use the fire button to 
shoot missiles, drop objects, or make the character disappear, 
but you could use it for starting the game, going to another 
level, or clearing the screen. 

Joysticks on the 64 are read by PEEKing two locations. At 
location 56321, you read a joystick plugged into port #1. At 
location 56320, you read a joystick plugged into port #2. When 
you create your game, make sure the players are using the 
joystick port your program is reading by PEEKs. 

If the joystick is pushed in a particular direction, a certain 
bit will be set to 0; if the joystick is not being pushed in that 
direction, that bit will be set to 1. In other words, a joystick is 
simply a series of switches, which are either on or off. Using 
PEEKs, you can read which are set to 0 and which to 1. 

Here are the tests for each direction for a joystick plugged 
into port #1: 

1. If the joystick is pushed left, PEEK(56321)AND15 = 11 

2. If the joystick is pushed right, PEEK (56321JAND15 = 7 

3. If the joystick is pushed up, PEEK(56321)AND15 = 14 

4. If the joystick is pushed down, PEEK(56321)AND 
15 = 13 
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5. If the joystick button is pushed, - ((PEEK(56321)AND 
16) = 0) 

If any of these expressions are true, the joystick is being 
pushed in that direction. Remember, too, that a joystick can be 
pushed in a diagonal direction—it is possible for both 2 and 3 
to be true, or 1 and 4, and so on. And the joystick button can 
be pressed at the same time. 

The values returned for each of the directions in which 
you can push the joystick are shown in Figure 8-1, Joystick 
Values. The value 15 is returned if the joystick is not pushed 
at all. 

Figure 8-1. Joystick Values 
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Character moves. Using the logical AND is called masking. 
Just as you use masking tape to cover something you don't 
want painted, for instance, you can use the AND function to 
cover up bits you don't want exposed. It's then simple to read 
the joystick, just as you earlier read the keyboard, to move a 
character around the screen. Look at the following program for 
a minute: 

Program 8-5. Joystick Character Movement 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

5 DIM V$(24):V$(0)="{HOME}":F0R 1=1 TO 24:V$(I)=V$ 

(1-1)+"{DOWN}":NEXT :rem 224 
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10 POKE 53281,1 SPRINT"{CLR}{BLK} 
="Q"sNV=12:NH=20:GOTO 45 


15 JY=PEEK(56321)AND15 
20 H=(JY=11)-(JY=7) 

25 V=(JY=14)-(JY=13) 

30 IF H=0 AND V=0 THEN 15 
35 NV=OV+V+24*((OV=23 AND 

40 NH=OH+H+39*((OH=38 AND 

45 PRINT V$(OV);TAB(OH);" 

50 OH=NH:OV=NV:GOTO 15 


”:POKE 657,128:FG$ 
srem 246 
srem 246 
srem 15 
srem 82 
srem 210 

V=1)-(OV=0 AND V=-l)) 

srem 254 

H=1)-(OH=0 AND H=-l)) 

srem 164 

";V$(NV);TAB(NH);FG$ 

srem 110 
srem 104 


This is a variation of Program 8-2, which moved a char¬ 
acter around the screen using keyboard controllers. Instead of 
reading the keyboard, however, this program reads the joystick 
plugged into port #1. Lines 15-25 do this. Notice that since 
PEEK(56321) is ANDed with 15, only horizontal and vertical 
movement is possible. Lines 20 and 25 set H and V to 1, -1, or 
0, depending on which way the joystick is being pushed. 

This program also uses a wraparound feature, which 
moves the character from the top to the bottom of the screen, 
and from side to side. Lines 35 and 40 do this. 

To read the joystick fire button, more lines are needed in 
the program. It's a good idea to use a subroutine called only 
when the fire button is pressed. This shortens the main loop 
and makes the character move faster than if the fire button 
were read and checked each time through the loop. To see the 
fire button read, and a message displayed when it is pressed, 
add these lines to Program 8-5: 


Program 8-6. Joystick Fire Routine 

48 FB=-((PEEK(56321) AND 16)=0):IF FB=1 THEN GOSUB 
100 srem 29 

100 PRINT "FIREI“:FOR T=0 TO 100:NEXT T srem 140 
110 PRINT "{CLR}"sRETURN srem 16 

The fire button is read in line 48, and if it is pressed (FB = 1), 
the subroutine at line 100 is executed and a message is shown 
on the screen. If the fire button is not pressed, the PEEK in line 
48 returns a 0, and the subroutine is not called. 

To make the joystick move a character diagonally, more 
changes are needed in this sample program. Changing lines 20 
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and 25 in Program 8-5 allows the joystick to read the diagonal 
directions and then move the character. Here are the new lines. 

20 H=((JY AND 4)=0)-((JY AND 8)=0) 

25 V=((JY AND 1)=0) — ( (JY AND 2)=0) 

Now you have a method to move characters on the screen 
with the same ease as when the Commodore, SHIFT, f5, and f7 
keys were used before. 

Moving sprites with the joystick. The joystick can also be 
used to move player-controlled sprites on the 64. The joystick 
is read instead of the keyboard with a PEEK statement, and the 
appropriate movement is then executed, depending on the 
direction the stick is pushed. Changing Program 8-2, Keyboard 
Sprite Movements, moves the sprite with a joystick instead of 
the keyboard. 

Program 8-7. Joystick Sprite Moves 

10 GOSUB 300 :rem 116 

20 POKE V+0, X sPOKE V+1,Y srem 102 

25 JY=PEEK(56321) AND 15 srem 247 

30 IF JY=7 THEN X=X+3:IF X>255 THEN X=255 srem 222 

40 IF JY=11 THEN X=X-3sIF X<24 THEN X=24 srem 158 

50 IF JY=13 THEN Y=Y+3sIF Y>229 THEN Y=229 srem 19 
60 IF JY=14 THEN Y=Y-3sIF Y<50 THEN Y=50 srem 165 
70 GOTO 20 srem 2 

300 V=53248sPRINT ,, {CLR}" sPOKE 53281,1 sX=160sY=100 

srem 90 

310 FOR 1=0 TO 63 sREAD AsPOKE 12288+1,AsNEXT 

srem 156 

320 POKE V+21,1sPOKE 2040,192sP0KE V+39,0sRETURN 

srem 200 

500 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,16,0,0,1 
6,0,0,16,0,0 srem 91 

510 DATA 56,0,0,124,0,0,170,0,1,85,0,1,255,0,1,255 
,0,0,170,0,1,41,0 srem 136 

520 DATA 2,40,128,0,0,0,0,0,0,0,0,0,0,0,0,0 

srem 230 

The variable JY is set in line 25 to equal PEEK(56321) AND 
15. In the next four lines, the joystick is read, and the sprite is 
moved in the appropriate direction. If the joystick is pushed to 
the right, for example, the expression JY=7 is true and 
X = X + 3. The sprite then moves to the right. Pushing the joy¬ 
stick up makes the expression JY=14 true in line 60, so 
Y=Y—3 and the sprite moves upward. Because only the 
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values received for horizontal and vertical movement are read, 
however, the sprite will not move diagonally. To do that, you'll 
need an entirely different kind of routine. 

Diagonal joystick movement for sprites. Sprites move 
quite differently than characters, and creating diagonal move¬ 
ment is more difficult. You can't just increase the character's 
location by 40 and see it move down a line. Both the X and Y 
coordinates have to be changed to move a sprite diagonally, 
and this takes more programming. Program 8-8 shows how 
you can move a sprite diagonally with the joystick. 

Here’s how this program works: 

Line Function 

10 Shift the program to line 300, where the sprite is 
established. 

25 Set variable JY equal to PEEK(56321)AND 15, which 

reads the joystick plugged into port #1. 

30 The ON GOSUB statement is useful when reading a 
joystick. Using ON GOSUB, the value of JY sends the 
program to different locations. If the value of JY is 1, 
for instance, the program shifts to line 35. Since 1 
isn't a value returned for a directional movement, it 
simply returns to line 30 and waits for another value. 
If JY = 14, however, that means the joystick was 
pushed up, and the program shifts to line 110, where 
Y-Y-3. The sprite then moves up. (Refer to Figure 
8-1, Joystick Values, for the numbers returned for 
each direction.) The program then goes back to line 
25 and reads the joystick again. 

35 RETURN the program to line 30 if an unusable value 
is read from the joystick. 

40 First execute line 60, movement to the right, then line 
100, movement down, to create the diagonal move¬ 
ment down and to the right. 

50 Same as line 40, but movement to the right and 

movement up (line 110) are combined for diagonal 
movement up and to the right. 

60-65 Move the sprite to the right only. Keep the sprite on 
the screen, to the left of the seam. 

70-75 Move the sprite to the left. The sprite stays in the 
viewing area because of the expression IF X<24 
THEN X = 24. 
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80 Execute line 100, movement down, then execute line 
70, movement to the left, to create diagonal move¬ 
ment down and to the left. 

90 Same as line 100, except that movement up is 

combined with movement to the left. This makes the 
sprite move diagonally up and to the left. 

100-105 Move the sprite downward unless Y is greater than 
229. 

110-115 Move the sprite upward unless Y is less than 50. 

300-320 Sprite setup. Variable V is set, screen is cleared, 

sprite coordinates are set, the sprite is READ from 
DATA and turned on. Sprite color set. 

500-520 DATA statements for the sprite. 


Program 8-8. Diagonal Sprite Joystick Movement 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 
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GOSUB 300 srem 116 
JY= (PEEK(56321)AND15) :rem 72 
ON JY GOSUB 35,35,35,35,40,50,60,35,80,90,70,30 


,100,110,35:G0T025 
RETURN 

GOSUB 60:GOSUB 100:RETURN 
GOSUB 60:GOSUB 110:RETURN 
X=X+3:IF X>255 THEN X=255 
POKE V+0,X:RETURN 
X=X-3:IF X<24 THEN X=24 


:rem 194 
:rem 72 
:rem 175 
:rem 177 
:rem 12 
:rem 233 
:rem 161 


POKE V+0,X:RETURN 
GOSUB 100:GOSUB 70:RETURN 
GOSUB 110:GOSUB 70:RETURN 
Y=Y+3:IF Y>229 THEN Y=229 
POKE V+1,Y:RETURN 
Y=Y-3:IF Y<50 THEN Y=50 
POKE V+1,Y:RETURN 
V=53248:PRINT"{CLR}":POKE 


:rem 234 
:rem 180 
:rem 182 
:rem 61 
:rem 22 
:rem 206 
:rem 23 

53281,1:X=160:Y=100 
:rem 90 


310 FOR 1=0 TO 63:READ A:POKE 12288+1,A:NEXT 

:rem 156 

320 POKE V+21,1:POKE 2040,192:POKE V+39,0:POKE V+0 
,X:POKE V+1,Y:RETURN :rem 6 

500 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,16,0,0,1 
6,0,0,16,0,0 srem 91 

510 DATA 56,0,0,124,0,0,170,0,1,85,0,1,255,0,1,255 
,0,0,170,0,1,41,0 srem 136 

520 DATA 2,40,128,0,0,0,0,0,0,0,0,0,0,0,0,0 

:rem 230 
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The sprite stays on the screen, does not wrap around, and also 
uses only the viewing area to the left of the seam. This simpli¬ 
fies programming. Of course, you can make it move across the 
seam by adding lines which test for the seam, POKE in the 
V+16 register, and reset the X coordinate. Look at Program 8-4 
for an example of how this was done when you used the 
keyboard to move sprites. You can use the same programming 
techniques to add this feature to joystick sprite movement. 

The joystick button. As long as we're reading the joystick, 
let's find another use for the button. By adding lines 15, 20, and 
120, and changing line 30 in Program 8-8, we can make the 
screen change color each time the fibre button is pressed. 

15 FB=-((PEEK(56321) AND 16)=0) srem 24 

20 ON FB GOSUB 120 :rem 154 

30 ON JY GOSUB 35,35,35,35,40,50,60,35,80,90,70,30 
,100,110,35:G0T015 srem 193 

120 R=INT(RND(9)*16):POKE 53281,R:RETURN srem 97 

Line 15 reads the fire button and sets the value as variable FB. 
Line 20 uses another ON/GOSUB statement to shift the 
program to line 120 if FB is 1, which is the value returned 
when the button is pressed. If the fire button is not pressed, 
line 15 returns a value of 0, and the program continues as it 
did before. Line 120 generates a random number from 0 to 15, 
then POKEs that number into location 53281 to alter screen 
background color. You had to change the end of line 30 to 
GOTO 15 so that the fire button is read each time through the 
main loop. 


Machine Language Movement Routines 

The process of reading the keyboard or the joystick is some¬ 
thing that may not seem complicated once you see a few exam¬ 
ples, but it does consume valuable space within your program's 
main loop. In BASIC games this is important, for it determines 
the speed with which your characters or sprites move about 
the screen. The more elaborate your main program loop is, the 
slower everything moves. 

An all-BASIC game can certainly move fast enough to 
keep the player's interest, but compromises must often be 
made. Perhaps diagonal movement has to be thrown out in 
order to make the sprites move at a reasonable speed. Maybe 
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more than a handful of sprites on the screen slow the game 
down to a crawl. Machine language routines can speed up this 
movement. 

Machine language is the native language of your 64. It can 
be hundreds, even thousands, of times faster than BASIC. 
When a program executes in BASIC, the 64's BASIC interpreter 
looks at each statement, decides what it means, and translates 
it into machine language. Machine language routines by-pass 
this interpretation and translation, and speed up the execution 
of a program. One of the easiest ways to see machine 
language's abilities is using it to move characters or sprites. 

Programs written in machine language look quite different 
from those written in BASIC. The final product of a machine 
language routine is a series of numbers that are placed in 
particular memory locations. Once you have these numbers, 
you simply place them in a number of DATA statements and 
POKE them into an area of computer memory that's available. 
The 64 then looks to the numbers in this area of memory and 
executes its instructions. 

If you don't know any machine language, even if you 
don't want to try, don't worry. You don't have to know 
machine language to use these movement routines. All you 
have to do is correctly enter the routine, and the computer will 
do all the rest. 

Where they go. Because these machine language routines 
are little more than values stored in certain memory locations, 
you first have to find a place to store them. One of the easiest 
places to locate these machine language instructions is in the 
cassette buffer. 

Usually used to temporarily store information transferred 
to and from the cassette drive, the cassette buffer uses memory 
locations 828 to 1019. Since this area is also protected from the 
computer's BASIC program, it is an ideal area to place machine 
language DATA. 

This can be a problem if you're using a cassette drive to 
LOAD and SAVE programs, however. When you use the 
cassette buffer for machine language storage, you can't use the 
cassette drive, too. Once you have finished LOADing a 
program, you can use this area of memory to store the 
routines. You won't be able to save anything on tape, though, 
since the buffer will be occupied by strange DATA. 
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SYSing 

Once you have the machine language routine in place, you get 
it to run by typing (or having the program enter it for you) the 
command SYS (n), where n is the memory location of the begin¬ 
ning of the routine. If you stored a machine language routine 
at the start of the cassette buffer, for instance, you would need 
a SYS(828) to access the routine. The routine automatically 
returns to your BASIC program when it is finished, which 
usually takes only a millisecond or so. The following routines 
all give the SYS address needed to access the routine, as well 
as the DATA numbers which are POKEd into the cassette 
buffer to form the routine itself. 

Keyboard-Controlled Character-Movement Routines 

This first machine language routine reads the keyboard and 
places values into locations 828 and 829. Once the values are 
there, you can use them to create an equation which produces 
the new screen location of the character. Since this is a simple 
machine language routine, you'll still have to do much of this 
work yourself. 

The routine checks location 197 (just as you did when you 
created a program which read the keyboard through PEEKs). It 
then compares the key code value with the values you estab¬ 
lished as representing the four possible directions and the fire 
button. You decide which four keys are used for movement, 
and which is used for the fire button. The key codes must be 
POKEd into memory locations before the main loop begins. 

The direction for each key, and the memory location to POKE 
its key code into, are: 

UP—key code value POKEd into location 251 
RIGHT—key code value POKEd into location 252 
LEFT—key code value POKEd into location 253 
DOWN—key code value POKEd into location 254 
FIRE BUTTON—key code value POKEd into location 80 

This routine is accessed by a SYS(831), which should be in 
a line within your program's main loop. Once it has been 
executed, you'll find that the routine has placed values into 
locations 828 and 829 which will allow you to calculate a new 
location for your character. The formulas are: 

NL(New Location) = 0L(01d Location) 

+ (PEEK(828) - PEEK(829)) 
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You can then POKE in the character's new location and posi¬ 
tion in color memory using the value NL. You can also erase 
the old image with the line: 

POKE NL - (PEEK(828) - PEEK(829)),32 

The routine does not create a character, nor does it keep the 
character on the screen. You'll need to provide those in the 
program. You can insert this into any program you write, 
which is one of the advantages of machine language routines. 
Program 8-9 is the BASIC loader and DATA statements for this 
routine. 
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Program 8-9. ML Character Keyboard Controller 

10 REM BASIC LOADER FOR KEYBOARD CONTROLLED CHARAC 
TER MACHINE LANGUAGE ROUTINE :rem 120 

20 FOR X = 831 TO 926: READ As POKE X, A: NEXT 

:rem 252 

1000 REM DATA FOR MACHINE LANGUAGE ROUTINE :rem 5 
1020 DATA 165,197,197,251,208,13,169,0,141,60,3,16 
9,40,141,61,3,96,234 :rem 120 

1030 DATA 234,197,252,208,13,169,1,141,60 :rem 220 

1040 DATA 3,169,0,141,61,3,96,234,234,197,253,208, 
13,169,0,141,60,3,169 :rem 163 

1050 DATA 1,141,61,3,96,234,234,197,254 :rem 126 

1060 DATA 208,13,169,40,141,60,3,169,0,141,61,3,96 
,234,234,197,80,208,8 :rem 166 

1070 DATA 169,1,141,62,3,96,234,234,169 :rem 133 

1080 DATA 0,141,60,3,141,61,3,141,62,3,96,234,234 

:rem 84 

To see this machine language routine in action, complete 
with a moving character and programmed keys for movement, 
look at Program 8-10. 

Here's how this demonstration works: 

Line Function 

10 Set screen color and clear screen. 

15 BASIC loader section of the machine language 

routine. DATA beginning in line 1020 is POKEd 
into the cassette buffer. 

20 Establish variables L (beginning location), C (char¬ 

acter's screen code), CM (number added to location 
to place the character in the right position in color 
memory). Also POKE in the character and its color 
(yellow). 
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25 POKE the key codes into the proper locations to 

set the keys which determine movement. @ is up, 
= is right, : is left, and / is down. 

30 Access the machine language routine with 

SYS(831) and set the variable R as 
PEEK(828) — PEEK(829). 

40 If no key is pressed, shift program back to line 30. 

50-55 Establish L (New Location of character), then erase 
it. Last expression keeps the character on the 
screen. (Unfortunately, it will jump from top or 
bottom of the screen to either the upper-left comer 
or the lower-right comer. Stopping at the top or 
bottom would mean more complicated program¬ 
ming—something a demonstration program 
doesn't need.) 

60 POKE in L and also new color memory location 

(L + CM,7). 

70 ' Complete the main loop by beginning it again. 

1020-1080 DATA statements for machine language routine. 

Program 8-10. Character Keyboard Demo 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 POKE 53281,0:PRINT"{CLR}{WHT} M :rem 146 

15 FOR X=831 TO 926:READ AsPOKE X,A:NEXT :rem 0 
20 L=*1520:C=42:CM=542 72:POKE L,C:POKE L+CM, 7 

:rem 213 

25 POKE 251,46:POKE 252,53:POKE 253,45:POKE 254,55 

:rem 140 

30 SYS (831):R=PEEK(828)-PEEK(829) :rem 118 

40 IF R=0 THEN 30 :rem 68 

50 L=L+R:POKE L-R,32:IF L>2023 THEN L=2023 :rem 21 
55 IF L<1024 THEN L=1024 :rem 199 

60 POKE L,C:POKE L+CM,7 :rem 35 

70 GOTO 30 :rem 3 

1000 REM DATA FOR MACHINE LANGUAGE ROUTINE :rem 5 
1020 DATA 165,197,197,251,208,13,169,0,141,60,3,16 
9,40,141,61,3,96,234 :rem 120 

1030 DATA 234,197,252,208,13,169,1,141,60 :rem 220 

1040 DATA 3,169,0,141,61,3,96,234,234,197,253,208, 
13,169,0,141,60,3,169 :rem 163 

1050 DATA 1,141,61,3,96,234,234,197,254 :rem 126 

1060 DATA 208,13,169,40,141,60,3,169,0,141,61,3,96 
,234,234,197,80,208,8 :rem 166 

1070 DATA 169,1,141,62,3,96,234,234,169 :rem 133 
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1080 DATA 0,141,60,3,141,61,3,141,62,3,96,234,234 

srem 84 


A Faster Machine Language Routine 

This second machine language routine has some features that 
will do some of the steps you had to program yourself in the 
last routine. This routine automatically POKEs the character 
into its new position on the screen, and keeps it on the screen 
for you. The character will not return to the corners, as in the 
last routine, but instead will simply stop at the top or bottom 
edges when they are reached. 

However, you'll lose the ability to test for collisions with 
other characters with this routine. This will not affect collision 
detection between sprites, which have a separate register for 
this. The chapter on collision detection will cover this more 
closely, so if you don't understand it yet, don't worry. 

You will still have to provide parameters for this routine. 
First of all, the routine needs to know the starting location of 
your character, both in screen and color memory. There are 
four memory locations set aside that will contain pointers to 
the screen and color memory addresses. These are locations 
251-254. 

Setting these pointers involves a few steps that may seem 
complicated at first, but should be clear once you've gone 
through them. Consult the Screen Location Table in Appendix 
C and decide where the character will first appear. Take that 
screen location and divide by 256. The number, rounded down 
to the nearest integer, is then POKEd into location 252. For 
example: 

Starting screen location = 1904 
1904/256 = 7.4375 Rounded down to 7 
POKE 252,7 

Second, take the remainder from that division and POKE 
the number into both location 251 and location 253. For 
instance: 

1904/256 = 7 with a remainder of 112 
POKE 251,112:POKE 253,112 

Next, take the number you just POKEd into 252 (7) and 
add 212 to it. This number is POKEd into location 254. 

7 + 212 = 219 
POKE 254,219 
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What you've just done is set the pointers that contain the 
least significant byte (LSB) and most significant byte (MSB) of 
the screen and color memory locations of the character. If you 
haven't worked with machine language before, this may sound 
confusing, but all you really have to know is how to calculate 
the appropriate values for these POKEs. 

Once the location pointers are set, you also need to decide 
what character to use, and which color it will be. If you were 
using this routine with a custom character, for instance, you 
could easily substitute one as the player-controlled character. 
Whether you use a standard character, or a custom character, 
its screen code value must be POKEd into location 832, and its 
color value into location 833. 

The last thing is to decide which keys you'll use for each 
direction of movement. Enter the key code values for your 
chosen keys as POKEs in these locations: 

UP at location 828 
DOWN at location 829 
LEFT at location 830 
RIGHT at location 831 

A total of 10 POKEs are needed for this routine before it 
can execute properly. Here's the BASIC loader and DATA state¬ 
ments for this machine language routine, which is SYSed with 
834: 

Program 8-11. BASIC Loader and DATA Statements 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 REM BASIC LOADER FOR FAST(CKX) KEYBOARD CONTROL 
LED CHARACTER ROUTINE :rem 164 

20 FOR X = 834 TO 1014: READ A: POKE X , A: NEXT 

:rem 36 

1020 DATA 32,176,3,165,197,205,60,3,208,14,32,183, 

3.32.228.3.176.63.32 :rem 107 

1030 DATA 160,3,76,147,3,205,61,3,208,14,32,160,3, 

32.237.3.144.44.32 :rem 245 

1040 DATA 183,3,76,147,3,205,62,3,208,14,32,199,3, 

32,228,3,176,25,32,217 :rem 210 

1050 DATA 3,76,147,3,205,63,3,208,14,32,217,3,32,2 
37,3,144,6,32,199,3 :rem 53 

1060 DATA 76,147,3,160,0,173,64,3,145,251,173,65,3 
,145,253,96,24,165 :rem 24 

1070 DATA 251,105,40,133,251,133,253,144,4 :rem 1 
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1080 DATA 230,252,230,254,96,160,0,169,32,145,251, 
96,56,165,251,233,40 srem 120 

1090 DATA 133,251,133,253,176,4,198,252,198,254,96 
,165,251,208,9,198,251 srem 254 

1100 DATA 198,253,198,252,198,254,96,198,251,198,2 
53,96,230,251,230,253,208 srem 154 

1110 DATA 4,230,252,230,254,96,165,251,201,1,165,2 
52,201,4,96,165,251 srem 53 

1120 DATA 201,232,165,252,233,7,96,234 srem 72 

Entering the POKEs can be done in the program, just 
before the machine language routine executes. Program 8-12 is 
a demonstration of a moving character using this routine. The 
required POKEs are already included in lines 10 through 40, 
including the BASIC loader statement in line 35 and the 
SYS(834) command in line 40. 

This is how the program works: 

Line Function 

10 Set background color to black and clear screen. 

20 Set pointers for screen and color memory locations 

for the character. Location 1279 was chosen as the 
screen memory starting location and the calcula¬ 
tions for each POKE statement were made on that 
basis. 

30 Set keys for movement. @ is up, = is right,: is 

left, and / is down. 

35 BASIC loader for machine language DATA. 

40 Access the machine language routine. 

1020-1120 Machine language DATA statements. 

Program 8-12. Fast Character Keyboard Demo 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 POKE 53281,0s PRINT"{CLR}" srem 141 

20 POKE 251,255 s POKE 252,4sPOKE 253,PEEK(251)sPOKE 
254,PEEK(252)+212 :rem 143 

30 POKE 828,46sPOKE 829,55sPOKE 830,45sPOKE 831,53 
sPOKE 832,42sPOKE 833,7 srem 160 

35 FOR X=834 TO 1014sREAD As POKE X,AsNEXT srem 42 
40 SYS(834) *rem 83 

50 GOTO 40 srem 2 


219 



Controlling Movement 


1020 DATA 32,176,3,165,197,205,60,3,208,14,32,183, 

3.32.228.3.176.63.32 srem 107 

1030 DATA 160,3,76,147,3,205,61,3,208,14,32,160,3, 

32.237.3.144.44.32 srem 245 

1040 DATA 183,3,76,147,3,205,62,3,208,14,32,199,3, 

32,228,3,176,25,32,217 srem 210 

1050 DATA 3,76,147,3,205,63,3,208,14,32,217,3,32,2 
37,3,144,6,32,199,3 srem 53 

1060 DATA 76,147,3,160,0,173,64,3,145,251,173,65,3 
,145,253,96,24,165 srem 24 

1070 DATA 251,105,40,133,251,133,253,144,4 srem 1 
1080 DATA 230,252,230,254,96,160,0,169,32,145,251, 
96,56,165,251,233,40 srem 120 

1090 DATA 133,251,133,253,176,4,198,252,198,254,96 
,165,251,208,9,198,251 srem 254 

1100 DATA 198,253,198,252,198,254,96,198,251,198,2 
53,96,230,251,230,253,208 srem 154 

1110 DATA 4,230,252,230,254,96,165,251,201,1,165,2 
52,201,4,96,165,251 srem 53 

1120 DATA 201,232,165,252,233,7,96,234 srem 72 


Joystick-Controlled Character Routine 

This routine is much like the first keyboard-controlled machine 
language routine. Program 8-9. It places values into locations 
253 and 254 that allow you to calculate the new screen location 
of the character using the line: 

L = L + PEEK(254) - PEEK(253) 

This routine also will place a value of 1 in location 80 if the fire 
button is pressed. You could use this by having the line: 

IF PEEK(80) = 1 THEN PRINT "FIRE!" 

where the PRINT statement is replaced by whatever function 
you assign to the fire button. 

You'll still have to keep the character on the screen and 
erase the previous character image. The routine reads the joy¬ 
stick and returns the values needed to calculate the character's 
new screen location. 

If you want to add the routine to your own program, 
simply enter the following program in the proper place. A 
SYS(828) accesses this routine. 

Program 8-13. Joystick Character Loader and DATA 

10 REM BASIC LOADER FOR JOYSTICK CONTROLLED CHARAC 
TER MACHINE LANGUAGE ROUTINE srem 151 

20 FOR X * 828 TO 973: READ A: POKE X, A: NEXT 

:rem 4 
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1020 DATA 173,1,220,74,176,40#74,74,176,11,169/0 

:rem 52 

1030 DATA 133,254,169,41,133,253,76,182,3,74,176,1 
1,169,0,133,254,169,39 srem 230 

1040 DATA 133,253,76,182,3,169,0,133,254,169,40,13 
3,253,76,182,3,74,176 srem 178 

1050 DATA 39,74,176,11,169,39,133,254,169,0,133,25 
3,76,182,3,74,176,11 srem 136 

1060 DATA 169,41,133,254,169,0,133,253,76,182,3,16 
9,40,133,254,169,0 srem 26 

1070 DATA 133,253,76,182,3,74,176,11,169,0,133,254 
,169,1,133,253,76,182,3 srem 16 

1080 DATA 74,176,11,169,1,133,254,169,0,133,253,76 
,182,3,169,0,133,254 srem 123 

1090 DATA 133,253,173,1,220,74,74,74,74,74,176,7,1 
69,1,133,80,76,203,3 srem 126 

1100 DATA169,0,133,80,96,234,234 srem 84 

The following demonstration program shows this machine 
language routine in action. It uses the same character as the 
first keyboard routine, as well as the same methods of keeping 
the character on the screen and moving the character. The only 
real difference is that the joystick plugged into port #1 is used 
instead of the keyboard. 


Program 8-14. Joystick Character Demo 


10 POKE 53281,0sPRINT"{CLR}{WHT}" srem 146 
15 FOR X=828 TO 973sREAD AsPOKE X,AsNEXT srem 8 
20 L=1520:C=42sCM=542 72sPOKE L,CsPOKE L+CM,7 

srem 213 


30 SYS(828)sR=PEEK(254)-PEEK(253) srem 108 
40 IF R=0 THEN 30 srem 68 
50 L=L+Rs POKE L-R, 32 sIF L>2023 THEN L=2023 srem 21 
55 IF L<1024 THEN L=1024 srem 199 
60 POKE L,CsPOKE L+CM,7 srem 35 
70 GOTO 30 srem 3 
1000 REM MACHINE LANGUAGE ROUTINE DATA srem 30 
1020 DATA 173,1,220,74,176,40,74,74,176,11,169,0 


srem 52 


1030 DATA 133,254,169,41,133,253,76,182,3,74,176,1 
1,169,0,133,254,169,39 srem 230 

1040 DATA 133,253,76,182,3,169,0,133,254,169,40,13 
3,253,76,182,3,74,176 srem 178 

1050 DATA 39,74,176,11,169,39,133,254,169,0,133,25 
3,76,182,3,74,176,11 srem 136 

1060 DATA 169,41,133,254,169,0,133,253,76,182,3,16 
9,40,133,254,169,0 srem 26 
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1070 DATA 133,253,76,182,3,74,176,11,169,0,133,254 
,169,1,133,253,76,182,3 :rem 16 

1080 DATA 74,176,11,169,1,133,254,169,0,133,253,76 
,182,3,169,0,133,254 :rera 123 

1090 DATA 133,253,173,1,220,74,74,74,74,74,176,7,1 
69,1,133,80,76,203,3 :rera 126 

1100 DATA169,0,133,80,96,234,234 srem 84 
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Adding this expression as line 35 will show the results of 
pressing the fire button: 

IF PEEK(80) = 1 THEN PRINT "FIRE!" 

Run the program again, watching as you press the fire button. 
A message should display each time. 

Keyboard-Controlled Sprite-Movement Routine 

This machine language routine moves sprite 0 around the 
screen under the control of the keys you select. This routine 
uses wraparound at all four edges of the screen and also allows 
the sprite to cross the seam. You can also designate a fire 
button key read from location 828. 

As in the previous examples, you have to assign the keys 
for each direction of movement. POKE the key code values of 
your keys into these locations: 

UP at 251 
DOWN at 252 
LEFT at 253 
RIGHT at 254 
FIRE BUTTON at 80 


kk 

kJ 

k^ 

kk 

k^ 

kk 
k J 


The BASIC loader and DATA statements for this routine look 
like this: 

Program 8-15. BASIC Loader and DATA for Keyboard 
Sprite 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 REM LOADER FOR KEYBOARD CONTROLLED SPRITE MACHI 
NE LANGUAGE ROUTINE srem 96 

20 FOR X= 830 TO 953s READ As POKE X , As NEXT 

srem 251 

999 REM MACHINE LANGUAGE ROUTINE DATA srem 8 

1000 DATA165,197,197,251,208,4,206,1,208,96,197,25 

2,208 srem 213 

1010 DATA4,238,1,208,96,197,253,208,38,173,0,208,2 
08,29,173,16,208,41 srem 126 
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1020 DATA1,208,14,173,16,208,9,1,141,16,208,169,80 
,141,0,208,96,173,16 srem 155 

1030 DATA208,41,254,141,16,208,206,0,208,96,197,25 
4,208,42,238,0,208,240 srem 5 

1040 DATA28,169,80,205,0,208,208,20,173,16,208,41, 

1.240.13.173.16.208 srem 98 
1050 DATA41,254,141,16,208,169,0,141,0,208,96,173, 

16.208.9.1.141.16.208 srem 203 
1060 DATA96,197,80,208,6,169,1,141,60,3,96,169,0,1 

41,60,3,96,234,234 srem 80 


Use SYS(830) to access this routine. 

A demonstration program using this machine language 
routine could look like this: 


Program 8-16. Keyboard-Controlled Sprite Demo 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 
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POKE 53281,0sV=53248:X=120sY=120sPRINT"{CLR}" 

srem 37 


FOR X=830 TO 953 sREAD AsPOKE X,AsNEXT srem 255 
FOR X=0 TO 63sREAD AsPOKE 12288+X.AsNEXT 


POKE 2040,192 
POKE V+21,1 
POKE V+39,10 
POKE V+0,X 
POKE V+l,Y 

POKE 251,46SPOKE 252,55 


srem 136 
srem 32 
srem 212 
srem 14 
srem 202 
srem 205 
POKE 253,45SPOKE 254,53 
srem 141 


100 SYS(830) sGOTO100 srem 128 

999 REM MACHINE LANGUAGE ROUTINE DATA srem 8 

1000 DATA165,197,197,251,208,4,206,1,208,96,197,25 

2.208 srem 213 

1010 DATA4,238,1,208,96,197,253,208,38,173,0,208,2 

08,29,173,16,208,41 srem 126 

1020 DATA1,208,14,173,16,208,9,1,141,16,208,169,80 
,141,0,208,96,173,16 srem 155 

1030 DATA208,41,254,141,16,208,206,0,208,96,197,25 
4,208,42,238,0,208,240 srem 5 

1040 DATA28,169,80,205,0,208,208,20,173,16,208,41, 

1.240.13.173.16.208 srem 98 
1050 DATA41,254,141,16,208,169,0,141,0,208,96,173, 

16.208.9.1.141.16.208 srem 203 

1060 DATA96,197,80,208,6,169,1,141,60,3,96,169,0,1 

41,60,3,96,234,234 srem 80 

59999 REM SPRITE DATA srem 238 
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60000 DATA 0,0,0,0,0,0,7,255,224,15,255,240,25,36, 
152,31,255,248,15,255 :rem 127 

60010 DATA 240,7,255,224,0,24,0,32,189,4,49,255,14 
0,43,255,212,36,60,36,40,24 srem 187 

60020 DATA 20,48,36,12,32,90,4,0,189,0,1,126,128,3 
,0,192,0,0,0,0,0,0,36,40,24 :rem 135 

The main movement loop is only one line, line 100. The rest of 
this program sets up the sprite parameters such as color, 
starting X and V coordinate positions, pointers to memory, and 
sprite DATA information to draw the sprite. Line 80 POKEs in 
the desired keys for movement. The pattern @ = : / is used 
again. 

As with all these machine language routines and demon¬ 
strations, you can use your own program lines instead of what 
appears here. For example, in the last program, you could 
replace the sprite DATA information in lines 60000-60020 with 
numbers which would draw a sprite of your own creation. 

Faster sprites. To speed up the sprite movement even 
more, you can make a few changes to the machine language 
routine's BASIC loader and DATA statements. After you've 
entered these changes, you even have the option of deciding 
how fast the sprite will move across the screen. You can have it 
move one, two, three, or four pixels at a time. The more pixels 
it moves at once, the jerkier the motion seems to be. As with 
many other game design decisions, you may have to compro¬ 
mise, losing some grace in movement for speed. 

To move the sprite faster, you'll need to add one line and 
change two others. 

Add this line to the machine language DATA statements: 
1070 DATA 32,62,3,32,62,3,32,62,3,32,62,3,96 
Next, change the BASIC loader line to read: 

15 FOR X=830 TO 966:READ AsPOKE X,A:NEXT 

This will include the 13 new DATA numbers in line 1070 when 
the machine language routine is READ and then executed. 

Finally, you need to change the SYS(830) command in line 
100 to reflect how fast you want the sprite to move. 

For a 4-pixel move, SYS(954) 

For a 3-pixel move, SYS(957) 

For a 2-pixel move, SYS(960) 

For a 1-pixel move, leave it at SYS(830) 


CJ 

W 

w 

CJ 

CJ 
C J 
KJ 
^J 
c J 

V .J 
C J 
C J 
C J 
C J 

k J 
<J 


224 



Controlling Movement 


r') 

r ^ 


r\ 

n 


r\ 

n 

n 

n 

n 

r*\ 

n 

n 

r\ 

n 

n 

n 

n 

n 

r\ 


If you find that the fastest movement is too jumpy, simply 
change the SYS command to the desired speed. 

Joystick-Controlled Sprite Routine 

This is essentially the same as the previous machine language 
routine. The sprite is moved on the screen with a joystick 
controller, but it wraps around on all edges, as well as 
smoothly crosses the seam. Since you're using a joystick in 
this routine, the sprite will also move diagonally instead of just 
horizontally and vertically. However, the fire button is not read 
by this routine. To do that, you'll have to add the line: 

FB = PEEK(56321) AND 16:IF FB = 16 THEN PRINT "FIRE!" 

where the PRINT statement can be changed to whatever func¬ 
tion you want to assign to the fire button. 

The BASIC loader and DATA statements for the machine 
language program are: 

Program 8-17. Joystick Sprite BASIC Loader and 
DATA 

10 REM BASIC LOADER FOR JOYSTICK CONTROLLED SPRITE 
MACHINE LANGUAGE ROUTINE srem 225 

20 FOR X=828 TO 936:READ A:POKE X,A:NEXT srem 3 
990 REM DATA FOR JS ROUTINE :rem 74 

995 DATA 173,1,220,74,176,3,206,1,208,74,176,3,238 

,1,208,74,176,42,173 srem 134 

996 DATA 0,208,208,31,173,16,208,41,1,208,16,173,1 

6,208,9,1,141,16,208 srem 114 

997 DATA 169,80,141,0,208,96,234,234,173,16,208,41 

,254,141,16,208,206 srem 87 

998 DATA 0,208,96,234,234,74,176,32,238,0,208,240, 

30,169,80,205,0,208 srem 82 

999 DATA 208,20,173,16,208,41,1,240,13,173,16,208, 

41,254,141,16,208,169 srem 172 

1000 DATA 0,141,0,208,96,234,234,173,16,208,9,1,14 

1,16,208,96,234,234 srem 54 

The routine is accessed with a SYS(828). 

The demonstration program uses the same sprite as 
Program 8-16, so you may want to simply LOAD that program 
into your computer and change only the BASIC loader line (line 
15) and the lines of machine language DATA statements (lines 
990-1000). 

Program 8-18 shows the machine language routine 
moving a sprite around the screen with a joystick controller. 
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Program 8-18. Joystick Sprite Demo 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 POKE 53281,0:PRINT"{CLR}":V=53248:X=120:Y=120 

:rem 37 

15 FOR X=828 TO 936:READ AsPOKE X.AsNEXT :rent 7 

20 FOR X=0 TO 63:READ A:POKE 12288+X,AsNEXT 

:rem 136 

30 POKE 2040,192 srem 32 

40 POKE V+21,1 :rem 212 

50 POKE V+39,10 srem 14 

60 POKE V+0,X srem 202 

70 POKE V+l,Y srem 205 

80 FOR T=0 TO 1000sSYS(828):NEXT:GOTO 80 srem 244 

990 REM DATA FOR JS ROUTINE srem 74 

995 DATA 173,1,220,74,176,3,206,1,208,74,176,3,238 

,1,208,74,176,42,173 srem 134 

996 DATA 0,208,208,31,173,16,208,41,1,208,16,173,1 

6,208,9,1,141,16,208 srem 114 

997 DATA 169,80,141,0,208,96,234,234,173,16,208,41 

,254,141,16,208,206 srem 87 

998 DATA 0,208,96,234,234,74,176,32,238,0,208,240, 

30,169,80,205,0,208 srem 82 

999 DATA 208,20,173,16,208,41,1,240,13,173,16,208, 

41,254,141,16,208,169 srem 172 

1000 DATA 0,141,0,208,96,234,234,173,16,208,9,1,14 

1,16,208,96,234,234 srem 54 

59999 REM SPRITE DATA srem 238 

60000 DATA0,0,0,0,0,0,7,255,224,15,255,240,25,36,1 

52,31,255,248,15,255 srem 127 

60010 DATA 240,7,255,224,0,24,0,32,189,4,49,255,14 
0,43,255,212,36,60,36,40,24 srem 187 

60020 DATA 20,48,36,12,32,90,4,0,189,0,1,126,128,3 
,0,192,0,0,0,0,0,0,36,40,24 srem 135 

Both routines for moving sprites allow the sprite to smoothly 
cross the seam on the screen. This is one of the advantages of 
using machine language movement routines when sprites are 
needed in your game. 

Even faster sprites. As with the keyboard-controlled 
sprites, you can make the sprite move even faster by adding a 
line to the machine language DATA statements and changing 
two lines in the demonstration program. You'll still have the 
option of four different speeds for the sprite. 

Add this line to the machine language DATA statements: 
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1010 DATA 32,60,3,32,60,3,32,60,3,32,60,3,96 

To insure that these additional numbers are POKEd into 
the 64's memory, change line 15 to read: 

15 FOR X=828 TO 949:READ A:POKE X,A:NEXT 

Setting the sprite's speed is a matter of using the correct 
SYS command. Change line 80 as follows: 

For a 4-pixel move, SYS(937) 

For a 3-pixel move, SYS(940) 

For a 2-pixel move, SYS(943) 

For a 1-pixel move, leave it at SYS(828) 

All of the machine language subroutines listed up to now 
have moved only one sprite. What if you want to use two 
player-controlled sprites, using both of the Commodore 64's 
joystick ports, and want the speed of machine language? 

Gregg Peele, assistant programming supervisor at 
COMPUTE! Publications, has written an excellent machine lan¬ 
guage routine which moves two sprites, one with each joystick. 
All the sprite movement calculations are done by the routine, 
including checking for the seam and keeping the sprites on the 
screen. The demonstration of this routine even creates two 
block-shaped sprites for you to move across the screen. Of 
course, you can enter DATA information for your own sprites, 
as well as select the sprites' colors. By placing this routine in 
your own program, you'll have the ability to use both joysticks 
to control sprites. Although writing a two-player game is 
somewhat more difficult, this routine will make it much 
simpler. 


Program 8-19. Two-Sprite Joystick Routine 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

40000 FORT=12288TO!2288+128sPOKET,255:NEXT:REM ADD 


SPRITE DATA HERE :rem 217 

40010 1=49152 :rem 128 

40020 READ As IF A=256 THEN40040 :rem 94 

40030 POKE I,A:1=1+1:CK=CK+A:GOTO40020 :rem 169 

40040 IFCK<>71433THENPRINT“{CLR}ERROR IN DATA STAT 
EMENTS”:END :rem 120 


40050 INPUT "COLOR FOR SPRITE0";C0:POKE49228,C0 

:rem 249 
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40060 

40070 

49152 

49160 

49168 

49176 

49184 

49192 

49200 

49208 

49216 

49224 

49232 

49240 

49248 

49256 

49264 

49272 

49280 

49288 

49296 

49304 

49312 

49320 

49328 

49336 

49344 

49352 

49360 

49368 

49376 

49384 

49392 

49400 

49408 

49416 

49424 

49432 

49440 

49448 

49456 

49464 

49472 

49480 

49488 

49496 

49504 

49512 

49520 


INPUT "COLOR FOR SPRITE1";C1:P0KE49233,C1 


SYS49152 

DATA 169,125,141,224,207,169,0 
DATA 141,225,207,169,125,141,226 
DATA 207,169,0,141,227,207,169 
DATA 125,141,0,208,141,1,208 
DATA 141,2,208,141,3,208,169 
DATA 0,141,16,208,120,169,52 
DATA 141,20,3,169,192,141,21 
DATA 3,88,96,162,0,32,65 
DATA 192,162,1,32,65,192,76 
DATA 49,234,169,3,141,21,208 
DATA 169,192,141,248,7,169,1 
DATA 141,39,208,169,2,141,40 
DATA 208,169,193,141,249,7,189 
DATA 0,220,41,15,157,228,207 
DATA 56,169,15,253,228,207,157 
DATA 232,207,160,0,200,152,221 
DATA 232,207,208,249,224,1,208 
DATA 2,162,2,152,10,168,185 
DATA 135,192,72,185,134,192,72 
DATA 96,1,194,213,193,217,193 
DATA 1,194,225,193,229,193,236 
DATA 193,1,194,221,193,250,193 
DATA 243,193,1,194,169,50,221 
DATA 1,208,176,12,189,1,208 
DATA 56,189,1,208,233,1,157 
DATA 1,208,96,169,229,221,1 
DATA 208,144,12,189,1,208,24 
DATA 189,1,208,105,1,157,1 
DATA 208,96,56,189,224,207,233 
DATA 65,157,228,207,189,225,207 
DATA 233,1,29,228,207,144,13 
DATA 169,65,157,224,207,169,1 
DATA 157,225,207,76,247,192,24 
DATA 189,224,207,105,1,157,224 
DATA 207,189,225,207,105,0,157 
DATA 225,207,56,189,224,207,233 
DATA 0,157,228,207,189,225,207 
DATA 233,1,29,228,207,144,19 
DATA 224,2,240,34,173,16,208 
DATA 9,1,141,16,208,189,224 
DATA 207,157,0,208,96,224,2 
DATA 240,30,173,16,208,41,254 
DATA 141,16,208,189,224,207,157 
DATA 0,208,96,173,16,208,9 
DATA 2,141,16,208,189,224,207 
DATA 157,0,208,96,173,16,208 
DATA 41,253,141,16,208,189,224 


;rem 249 
srem 255 
:rem 246 
srem 86 
:rem 1 
:rem 134 
:rem 145 
srem 140 
srem 129 
:rem 212 
:rem 103 
srem 147 
srem 158 
srem 141 
srem 18 
srem 141 
srem 8 
srem 224 
srem 245 
srem 100 
srem 9 
srem 206 
srem 255 
srem 246 
srem 203 
srem 100 
srem 104 
srem 102 
srem 145 
srem 50 
srem 14 
srem 63 
srem 147 
srem 205 
srem 6 
srem 249 
srem 249 
srem 48 
srem 253 
srem 155 
srem 145 
srem 104 
srem 101 
srem 192 
srem 58 
srem 64 
srem 196 
srem 153 
srem 246 
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49528 DATA 
49536 DATA 
49544 DATA 
49552 DATA 
49560 DATA 
49568 DATA 
49576 DATA 
49584 DATA 
49592 DATA 
49600 DATA 
49608 DATA 
49616 DATA 
49624 DATA 
49632 DATA 
49640 DATA 
49648 DATA 
49656 DATA 
49664 DATA 
49672 DATA 
49680 DATA 
49688 DATA 
49696 DATA 
49704 DATA 
49712 DATA 
49720 DATA 
49728 DATA 
49736 DATA 


207,157,0,208,96,56,189 

224.207.233.25.157.228.207 
189,225,207,233,0,29,228 
207,176,13,169,24,157,224 
207,169,0,157,225,207,76 
127,193,56,189,224,207,233 

1.157.224.207.189.225.207 
233,0,157,225,207,56,189 
224,207,233,0,157,228,207 
189,225,207,233,1,29,228 
207,144,19,224,2,240,34 

173.16.208.9.1.141.16 
208,189,224,207,157,0,208 

96.224.2.240.30.173.16 
208,41,254,141,16,208,189 
224,207,157,0,208,96,173 
16,208,9,2,141,16,208 
189,224,207,157,0,208,96 

173.16.208.41.253.141.16 
208,189,224,207,157,0,208 
96,32,158,192,96,32,178 

192.96.32.198.192.96.32 

78.193.96.32.158.192.32 

78.193.96.32.178.192.32 

78.193.96.32.178.192.32 

198.192.96.32.158.192.32 
198,192,96,96,256 


:rem 170 
srem 47 
:rem 207 
:rem 1 
:rem 207 
srem 63 
srem 4 
srem 212 
srem 250 
srem 201 
srem 144 
srem 47 
srem 255 
srem 94 
srem 252 
srem 211 
srem 51 
srem 216 
srem 198 
srem 1 
srem 183 
srem 182 
srem 169 
srem 170 
srem 169 
srem 225 
srem 144 


r*\ 
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This machine language routine is accessed with a SYS(49152), 
which is where the DATA begins. You'll recognize the BASIC 
loader line and the sprite setup lines in the beginning of the 
routine. The only thing you have to do when you use this 
routine is select the color for each sprite. The routine asks for 
this information in lines 40050 and 40060. Everything else is 
done for you. 

You can even change the sprites' colors as the program 
RUNs. All you have to do is press RUN/STOP and POKE a 
new color value into location 49228 for sprite 0, or location 
49233 for sprite 1. The sprite color will instantly change. For 
example, POKEing 49228,14 changes sprite 0 to light blue. 


It s Not Pong, But Why Not Use Paddles? 

r*\ A game controller often overlooked, perhaps because it has 

been in use so long, is a set of game paddles. First introduced 
Oi as controllers for the first real videogame. Pong, they can be 
useful in many kinds of arcade-style games. 

O 
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Game paddles are somewhat like the volume or tone 
controls on a radio. The paddle varies the resistance conducted 
on the wire it's connected to. 

They can be used for a variety of purposes. When they are 
hooked up to the 64 and the right program is in place, the 
paddles generate numbers as they are twisted to the left or to 
the right. Twisting the paddle to one side results in the value of 
255, while twisting to the other produces a value of 0. How 
these values are used depends on your decisions and the 
program you write or use. 

The most popular use of a paddle is for character or sprite 
movement. A paddle is particularly suited for sprite move¬ 
ment, since the sprite positions, ranging from 0 to 255, are the 
same as the values created by the paddles. 

A machine language routine is the best way to program 
paddle controls. Using BASIC is quite difficult when program¬ 
ming paddles, since they cannot be read accurately unless a 
machine language routine is in place. BASIC is just too slow for 
game paddle controllers. 

Here's a machine language BASIC loader and DATA state¬ 
ments which will allow you to use game paddles as controllers. 
The routine will read one or two sets of paddles, as well as 
their fire buttons. After this routine has been called with a 
SYS(840), you'll find the following information in these 
memory locations: 

Location Data 

830 Value (0 to 255) of position of paddle A plugged into 
port #1. 

832 Value of position of paddle B plugged into port #1. 

829 Fire button for both paddles in port #1. A value of 

251 indicates paddle A's fire button is pressed, 247 
means paddle B's fire button is pressed, and a value 
of 243 indicates both paddles' fire buttons are 
pressed. 

831 Value of position of paddle A plugged into port #2. 

833 Value of position of paddle B plugged into port #2. 

828 Fire button indicator for paddles plugged into port 

#2. The values returned are the same as those for 
port #1. 
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Program 8-20. Paddle BASIC Loader and DATA 
Statements 

5 REM BASIC LOADER FOR GAME PADDLE MACHINE LANGUAG 

E READ ROUTINE srem 88 

10 FOR X = 840 TO 903: READ A: POKE X, A: NEXT 

srem 246 

110 DATA162,1,120,173,2,220,141,70,3,169,192,141,2 
,220,169,128,141,0 :rem 31 

120 DATA 220,160,128,234,136,16,252,173,25,212,157 
,62,3,173,26,212,157,64 srem 0 

130 DATA 3,173,0,220,9,128,141,60,3,169,64,202,16, 
222,173,70,3,141,2,220 srem 179 

140 DATA 173,1,220,141,61,3,88,96 srem 82 
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By adding this machine language routine to your own 
program, you can use game paddles to move characters or 
sprites across the screen. The following demonstration 
program creates a sprite, uses the SYS(840) to call the machine 
language routine, and uses the paddles to move the sprite 
about the screen. Paddle A moves the sprite horizontally, while 
paddle B moves it vertically. The paddles should be plugged 
into port #1. 


Program 8-21. Paddle-Controlled Sprite Movement 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


5 REM PADDLE CONTROLLED SPRITE DEMO srem 181 

6 REM USES PORT 1, ONE PADDLE CONTROLS X POSTION A 

ND OTHER CONTROLS Y POSTION srem 206 

7 REM FIRE BUTTON NOT INCLUDED srem 86 

10 POKE 53281,0:V=53248sX=120sY=120SPRINT"{CLR}” 

srem 37 


15 FOR X=840 TO 903:READ AsPOKE X,A:NEXT srem 251 
20 FOR X=0 TO 63:READ AsPOKE 12288+X,AsNEXT 

srem 136 


30 POKE 2040,192 srem 32 

40 POKE V+21,1 srem 212 

50 POKE V+39,10 srem 14 

60 SYS(840) srem 82 

70 POKE V,PEEK(830)SPOKE V+l,PEEK(832) srem 131 

90 GOTO 60 v srem 8 

105 REM MACHINE LANGUAGE DATA srem 205 

110 DATA162,1,120,173,2,220,141,70,3,169,192,141,2 
,220,169,128,141,0 srem 31 

120 DATA 220,160,128,234,136,16,252,173,25,212,157 
,62,3,173,26,212,157,64 srem 0 


r\ 

n 
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130 DATA 3,173,0,220,9,128,141,60,3,169,64,202,16, 
222,173,70,3,141,2,220 :rem 179 

140 DATA 173,1,220,141,61,3,88,96 srem 82 

59999 REM SPRITE DATA srem 238 

60000 DATA 0,0,0,0,0,0,7,255,224,15,255,240,25,36, 

152,31,255,248,15,255 srem 127 

60010 DATA 240,7,255,224,0,24,0,32,189,4,49,255,14 
0,43,255,212,36,60,36,40,24 srem 187 

60020 DATA 20,48,36,12,32,90,4,0,189,0,1,126,128,3 
,0,192,0,0,0,0,0,0,36,40,24 srem 135 

Fast-moving sprite, isn't it? Notice that the seam is not 
crossed. If you wanted to move the sprite in only one direc¬ 
tion, more like Pong, you could add one line and change one 
other. 

Add this line: 

55 POKE V,X 

and change line 70 to: 

70 POKE V+l,PEEK(832) 

Now the sprite will move only vertically. The sprite jiggles less, 
too. This is something peculiar to game paddle controllers, 
since they are sometimes just between two numbers and 
trying to generate both numbers at once. 
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When Pac-Man eats dots, points get added to the score and the 
dot disappears; when he eats a power dot, the ghosts change 
color for a while. When Pac-Man touches a ghost, he dies— 
unless he recently ate a power dot. Most of the things that 
happen in a videogame happen because something on the 
screen bumped into something else. 

There are other things that can cause changes. In Donkey 
Kong, for instance, if it takes you too long to get to the top of 
the screen, you run out of time and Mario wipes out. In most 
games, if your score reaches a certain level you get a bonus 
player-figure, an extra turn. But these are rare exceptions: the 
overwhelming majority of events are caused by collisions. 

Checking for Character Collisions 

Checking for collisions between characters is really very 
simple. All you have to do to see if your figure is touching 
something is PEEK at the address in screen memory where the 
figure is about to be PRINTed or POKEd and see what's there. 

Remember in Chapter 5 when we created a scrolling 
screen display made of flickering stars, with a starship moving 
through? Let's turn that into a playable game now, by moving 
the starship around on it using the wraparound movement 
routine from Chapter 8. We'll use the Commodore and SHIFT 
keys for left/right movement, and/5 and/7 for up/down move¬ 
ment. But before we move the starship, we'll check to see if 
there's something in the place where the spaceship is trying to 
go. If we PEEK that location and get any number but 32, we'll 
know that the starship is colliding with something. Then the 
program will jump to a collision-handling routine and decide 
what to do next. 

What's the story? Let's say that our spaceship is on a fuel¬ 
gathering mission. It needs to visit large nova stars, to gather 
rare gases from the clouds surrounding them. Unfortunately, if 
the spaceship passes too close to regular, smaller stars, it 
suffers damage—too many such incidents before the spaceship 
reaches a space Station for repairs and refitting will cause the 
spaceship to malfunction, and the crew will have to abandon 
it. 

How does this story translate into collision handling? 

Collision handling. First, we'll keep score. Every time the 
ship collides with a small star, the player loses points. Also, it 
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wUl come one step closer to destruction, which is signified by 
changing the spaceship's color from red to cyan, purple, green, 
and so on. 

Every time the ship collides with a nova (large star), the 
player wins points, and the nova, all its important gases 
stripped away, appears on the screen as a small star. 

When the starship collides with a twirling space station, it 
is refitted and starts again with a red color. It gets no addi¬ 
tional points. 

When the spaceship moves onto a small star or the space 
station, the program must "pick up" the star and then put it 
back when the spaceship leaves. With the novas, however, 
since the spaceship has picked up all the gases surrounding 
them, the program will put a small star in their place when the 
spaceship moves away. 

How Collision Handling Works: 

Line Function 

230 If the character stored at the new location is some¬ 
thing other than a blank (32), go to the Collision 
Routine at 700. 

280 POKE the player-figure and its color into screen 

memory and color memory. If the color is greater 
than 9, the player-figure has collided with too many 
small stars—jump to the end routine at 900. 

640 PRINT the updated score at the top of the screen. 

(Notice that the program PRINTS STR$ (P) instead of 
simply PRINTing P. This is because the 64 automati¬ 
cally skips a space after PRINTing numeric variables. 
If a number was already in that space, it will be left 
there, which makes the score inaccurate if the 
number of digits in the score changes. Perhaps the 
best way to see how this works is to change the state¬ 
ment to PRINT "{HOME}"TAB(8)P" POINTS " 
and see what happens.) 

700-730 Collision Routine. There are four possible collisions. 

If the spaceship has collided with a small star (28), 
the score (P) is decreased by 100, and NC, the space¬ 
ship's color, is increased by one. 

If the spaceship has collided with a new space 
station (27), NC, the spaceship's color, is set back to 
2. Then W is set to 104, a "used" space station, so 
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that it can't be used again. 

If the spaceship has collided with a used space 
station (30), nothing happens. 

If the spaceship has collided with a nova (the only 
other possibility), the score is increased, with greater 
increases at the higher difficulty levels and at lower 
positions on the screen. W is then set to 28, a small 
star, so that it becomes another obstacle to the 
spaceship. 

900 End Routine. This routine makes the spaceship flash 
through the colors, prints the final score, and exits 
the game. 


Program 9-1. Mission: IVova! 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


10 

17 

18 

19 

20 

30 

37 

38 

39 

40 

50 

57 

58 

59 

60 

67 

68 

69 

70 
80 


DIM CC(1),CH(1),CB(1) 

REM 

REM SET MEMORY VARIABLES 
REM 


srem 175 
srem 76 
srem 171 
srem 78 


CC(0)=12:CC(1)=14 sVB=32768:VM=VB/256 s SB=128:SC= 


SB*256:CM=55296 srem 166 
FOR 1=0 TO 1sCH(I)=1024*CC(I)+VBsCB(I)=CC(I)+16 
*(SB-VM)s NEXT $ rem 229 
REM s rem 78 
REM SET VIDEO, SCREEN, & CHAR BLOCKS srem 204 
REM s rem 80 
POKE 648,SBs POKE 56578,PEEK(56578)OR 3sPOKE5657 
6,(PEEK(56576)AND252)OR 1 srem 167 
PRINT "{CLR}JUST A MOMENT, PLEASE ...” 


srem 144 


REM s rem 80 
REM SET UP CHAR SET, SCREEN, STRING srem 219 
REM s rem 82 
GOSUB 1100 sGOSUB 400sGOSUB 500 srem 69 
REM s rem 81 
REM SET UP INITIAL SCREEN POSITIONS srem 117 
REM s rem 83 
FG=31sOC=lsNC=2sQ=3sQQ=Q+1sGOSUB 800 srem 28 


NH=7s NV=7 s C=NH+NV* 40 s W= 3 2 s SS=2 7 s CS=2 s TS=0 


srem 183 

90 GOTO 290 srem 61 

97 REM srem 84 

98 REM MAIN LOOP srem 180 

99 REM srem 86 

100 A=PEEK(653)AND3sB=PEEK(197) srem 249 


n 
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REM srera 124 

REM TIME TO SCROLL? :rem 93 

REM :rem 126 

IF VAL(TI$)>Q THEN GOSUB 600 srem 234 

REM :rem 125 

REM ANIMATE THE SCREEN :rem 30 

REM srem 127 

K=-(K=0):POKE 53272,CB(K) srem 10 

REM srem 132 

REM IF NO MOVEMENT, THEN REPEAT srem 56 

REM srem 134 

H=(A>1)-(A=1)sV=(B=6)-{B=3)sIF H=0 AND V=0 THE 

N 100 srem 36 

REM srem 133 

REM MOVEMENT LOOP srem 43 

REM srem 135 

NH=OH+H+39*((OH=38 AND H=1)-(OH=0 AND H=-l)) 

srem 210 

NV=OV+V+(OV=24 AND V=l)-(OV=l AND V=-l)srem 74 
REM srem 126 

REM RESTORE VALUE AT OLD LOCATION srem 237 

REM srem 128 

POKE CM+C,OC s POKE SC+C,WsC=NH+NV*40 srem 28 
REM srem 127 

REM COLLISION? srem 107 

REM srem 129 

W=PEEK(SC+C)sIF W<>32 THEN GOSUB 700 srem 232 

REM srem 132 

REM POKE SHIP IN NEW LOCATION srem 194 

REM srem 134 

POKE CM+C,NCsPOKE SC+C,FGsIF NC>9 THEN 900 

srem 67 

OH=NHsOV=NVsGOTO 100 srem 201 

REM srem 135 

REM SET UP STRING OF RANDOM STARS srem 211 

REM srem 137 

T$=""sFOR 1=0 TO 254sT=32 srem 210 

IF INT(RND(9)*7)<1 THEN T=92sIF INT(RND(9)*5)< 
1 THEN T=93 srem 50 

T$=T$+CHR$(T)s NEXT srem 13 

M$=CHR$(19)sFOR 1=0 TO 24sM$=M$+CHR$(17)sNEXTs 
RETURN s rem 178 

REM srem 136 

REM CREATE RANDOM STARFIELD srem 156 

REM srem 138 

POKE 53281,0sPOKE 53280,0sPRINT "{WHT}{CLR}" 

s rem 141 

FOR I=CM TO CM+999sPOKE I,IsNEXT srem 40 

Q=100*RND(9)+20sQl=6*RND{9)+2 srem 254 
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FOR 1=0 TO QsX=1000*RND(9)sN=28$GOSUB 540:NEXT 

srem 75 

FOR 1=0 TO QlsX=1000*RND(9):N=29:GOSUB 540:NEX 
T;RETURN srem 152 

POKE SC+X,NsRETURN srem 117 

REM srem 137 

REM SCROLL THE SCREEN srem 250 

REM srem 139 

POKE SC+C,Ws POKE CM+C,OCsT=l+INT(RND(9)*167) 

srem 10 

PRINT M$?MID$(T$,T,40*INT(QQ-Q)-1);sP=P-INT(7* 
Q)sGOSUB 800 srem 74 

REM srem 130 

REM COLLISION? srem 110 

REM srem 132 

OC=PEEK(CM+C)sW=PEEK(SC+C)sIF W<>32 THEN GOSUB 
700 srem 104 

REM srem 131 

REM RESTORE STARSHIP TO PLACE srem 30 

REM srem 133 

POKE SC+C,FGsPOKE CM+C,NC srem 169 

REM srem 132 

REM DISPLAY SCORE srem 23 

REM srem 134 

PRINT "{HOME}"TAB(18)STR$(P)" POINTS{3 SPACES} 
" srem 238 

REM srem 133 

REM TIME FOR A SPACE STATION? srem 170 

REM srem 135 

TS=TS+1sIF TS>10*(QQ-Q)THEN GOSUB 850 srem 120 

REM srem 134 

REM TOO MANY SHIPS LOST? srem 182 

REM srem 136 

IF NC>9 THEN 900 srem 251 

RETURN srem 127 

REM srem 136 

REM COLLISION HANDLING ROUTINE srem 160 

REM srem 138 

REM SMALL STAR srem 62 

REM srem 140 

IF W=28 THEN P=P-100sNC=NC+lsRETURN srem 253 

REM srem 130 

REM SPACE STATION srem 17 

REM srem 132 

IF W=27 THEN NC=CSsW=30sRETURN srem 2 

REM srem 131 

REM USED SPACE STATION srem 67 

REM srem 133 

IF W=30 THEN RETURN srem 46 


239 



I Collisions 


727 REM 

728 REM NOVAl 

729 REM 

730 P=P+(8*NH)*INT(QQ-Q):W=28:RETURN 

797 REM 

798 REM RESET TIMER 

799 REM 

800 TI$="000000"sQ=99*(Q/100)s RETURN 

847 REM 

848 REM GENERATE SPACE STATION 

849 REM 

850 TS=0:T2=100I—INT(RND(9)*40)sPOKE 

CM+T2,CSsRETURN 
897 REM 


srera 132 
srem 218 
:rem 134 
srem 195 
:rem 139 
srem 144 
srem 141 
srem 218 
srem 135 
srem 97 
srem 137 
SC+T2,SS s POKE 
srem 221 
srem 140 


898 REM ENDING ROUTINE srem 104 

899 REM srem 142 

900 FOR 1=0 TO 20 sFOR X=0 TO 7sPOKE CM+C, X s NEXT s NE 

XT srem 216 

910 PRINT "{CLR}"P" POINTS"sPRINTSPRINTSPRINT "THE 
END"SEND srem 209 

1097 REM srem 181 

1098 REM INITIALIZE CHARACTER SET srem 33 

1099 REM srem 183 

1100 POKE 56334,PEEK(56334)AND 254sPOKE 1,PEEK(1)A 

ND 251sPOKE 657,0 srem 74 

1110 FOR 1=0 TO 1sRM=53248—CH(I) srem 162 

1120 FOR J=CH(I) TO CH(I)+511sPOKE J,PEEK(J+RM)sNE 
XTsNEXT srem 60 

1130 FOR 1=0 TO 1sFOR J=27 TO 31sFOR K=0 TO 7 

srem 1 

1140 READ Ns POKE CH(I)+8*J+K,NsNEXTsNEXTsNEXT 

srem 240 

1150 POKE l,PEEK(l)OR 4sPOKE 56334,PEEK{56334)OR 1 

srem 182 

1160 POKE 53272,CB(0)sRETURN srem 70 

1297 REM srem 183 

1298 REM CHARACTER DATA srem 95 

1299 REM srem 185 

1300 DATA 24,12,14,12,48,112,48,24 srem 117 

1310 DATA 0,0,40,16,40,0,0,0 srem 50 

1320 DATA 0,60,126,126,126,126,60,0 srera 164 

1330 DATA 0,32,116,249,159,46,4,0 srem 78 

1340 DATA 211,137,153,255,153,24,24,36 srem 72 

1350 DATA 0,32,112,241,143,14,4,0 srem 56 

1360 DATA 0,0,16,40,16,0,0,0 srem 58 

1370 DATA 0,66,60,60,60,60,66,0 srem 233 

1380 DATA 0,32,112,241,143,14,4,0 srem 59 

1390 DATA 203,145,153,255,153,24,24,36 srem 77 
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Star-Eater 

Here's a simple gobble game. You are a hungry mouth, out to 
eat stars. You get points for eating them. The trouble is, each 
one you eat turns into a flickering fire—and if you accidentally 
bum yourself at a fire, you lose points. Also, every fire you 
touch turns into a boulder, which you can't get past. Your task 
is to eat as many stars as you can before time runs out. You can 
wrap around the screen both horizontally and vertically; left- 
right movement is done with the SHIFT and Commodore keys, 
and up-down movement is done with/5 and/7. You can move 
diagonally. 

With what you already know about game programming, 
you should have little trouble figuring out exactly what's going 
on. Lines 5-55 are Initialization; lines 100-190 are the Main 
Loop; lines 200-290 are the Movement Loop; lines 300-350 are 
the End Routine; lines 600-620 are the Set Level Subroutine; 
and lines 700-730 are the Collision Routine. It's all familiar 
ground. 

Let me just call your attention to a few details. 

Notice the variable M. During initialization, it is set to the 
total number of stars on the screen by adding 1 to M each time 
a star is POKEd to the screen (that is, each time the random 
number X is a 3). Then, during the Collision Routine, M is 
decreased by 1 each time the player eats a star. This means that 
when the last star is eaten, M will equal zero—and that is one 
of the conditions that will end the game. Upon entering the 
End Routine at line 300, you get different messages, 
depending on whether or not you ate all the stars. 

Another new feature is the choice of levels. At the begin¬ 
ning of the game, you are asked what level you want. This is 
accomplished in the subroutine starting at line 600. If you 
choose "easy," the variable N is set to 300; 200 if you choose 
"hard"; and 100 if you choose "superhuman." 

Notice how this variable is used throughout the program. 
In the Collision Routine, the score is added to by an amount 
equal to N minus the current value of the timer (TI$), but when 
the player touches a fire, the score is subtracted from by an 
amount equal to TI$. That means that the farther you get in the 
game, the fewer points you get for each star you eat, and the 
more points you lose for each fire you touch. 

Also, the "TIME" message at the top of the screen (see line 
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100) tells you how much time you have left. The countdown is 
created by subtracting TI$ from N. And if you don't eat all the 
stars before the timer reaches the value of N, the game ends— 
with a different message at line 300. 


Program 9-2. Star-Eater 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


5 DIM CH(3),CL(3),CC(I),CB(1),CM(1):CH(0)=102sCH(1 
)=32sCH(2)=43sCH(3)=42 srem 217 

10 CL(0)=0:CL(1)=9sCL(2)=8:CL(3)=1 :rem 27 

15 SC=PEEK(648)sCM=55296+256*(SC AND2):SC=SC*256:P 
OKE 53281,9:POKE 53280,11 srem 117 

20 PRINT "{BLK}{CLR}"sFG=81:CF=4:M=0 s GOSUB 600 

srem 59 

25 FOR 1=40 TO 999sX=INT(RND(1)*4)sM=M-(X=3) 

srem 172 

30 POKE SC+I,CH(X)sPOKE CM+I,CL(X)sNEXT srem 70 
35 TI$="000000"sOH=10sOV=10sFL=OH+OV*40sOC=CL(1)sW 
=CH(1) srem 169 

40 POKE SC+FL,FGsPOKE CM+FL,CF srem 10 

45 CC(0)=12sCC(1)=14sCM=55296sFOR 1=0 TO lsCM(I)=l 
024*CC(I)sNEXT srem 220 

50 FOR 1=0 TO 1sCM(I)=1024*CC(I)sCB(I)=(PEEK(53272 
)AND 240)OR CC(I)sNEXT srem 139 

55 GOSUB 1100 srem 172 

100 PRINT "{HOME}SCORE ”STR$(P)" TIME "STR?(N-VAL( 
TI$)) " " srem 68 

110 A=PEEK(653)AND3sB=PEEK(197) srem 250 

120 IF VAL(TI$)>N OR M=0 THEN 300 srem 192 

130 K=-(K=0)sPOKE 53272,CB(K) srem 11 

190 H=(A>1)-(A=1)sV=(B=6)-(B=3)sIF H=0 AND V=0 THE 
N 100 srem 36 

200 NH=OH+H+40*((OH=39 AND H=1)-(OH=0 AND H=-l)) 

srem 203 

210 NV=OV+V+24*((OV=24 AND V=l)-(OV=l AND V=-l)) 

srem 43 

220 POKE SC+FL,Ws POKE CM+FL,OCsFL=NH+NV*40sE=W 

srem 28 

230 W=PEEK(SC+FL)sOC=PEEK(CM+FL)sIF W<>32 THEN GOS 
UB 700 srem 3 

280 POKE CM+FL,CFsPOKE SC+FL,FG srem 64 

290 OH=NHsOV=NVsGOTO 100 srem 201 

300 PRINT "{CLR}"sIF M=0 THEN SH=N-VAL(TI$)sP=P+10 
00*SHsGOTO 320 srem 193 

310 PRINT "TIME'S UPl"sPRINT "STARS LEFTs "MsGOTO 
{SPACE}325 srem 43 
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320 PRINT "YOU GOT ALL THE STARS1":PRINT "TIME LEF 
Ts ”N-VAL(TI$) srem 196 

325 PRINT "SCORE: "P :rem 113 

330 PRINT"{3 DOWN}PLAY AGAIN? (Y OR N)" :rem 8 

340 B=PEEK(197):IF B=39 THEN END :rem 231 

345 IF B=25 THEN RUN :rem 53 

350 GOTO 340 srem 104 

600 PRINT "{6 SPACES}STAR-EATER"SPRINT "{2 DOWNjCH 
OOSE YOUR LEVEL:" srem 46 

605 PRINT "1 - EASY"SPRINT "2 - HARD"SPRINT "3 - S 

UPERHUMAN" srem 248 

610 N=PEEK(197)sIF N=64 THEN 610 srem 189 

620 N=4004-120*(N=59)+250*(N=8):PRINT "{CLR}"sRETUR 
N srem 161 

700 IF W=CH(0) THEN 730 srem 143 

710 IF W=CH(2) THEN P=P-VAL(TI$):W=CH(0):OC=CL(0): 

RETURN s rem 4 

720 P=P4-INT(N—VAL(TI$)):W=CH(2):OC=CL(2)sM=M-1:RET 
URN srem 205 

730 NH=OHs NV=OV sFL=OH+OV*40 sW=EsOC=PEEK(FL+CM):RET 
URN srem 187 

1100 POKE 56334,PEEK(56334)AND 254:POKE 1,PEEK(1)A 
ND 251 srem 227 

1110 FOR 1=0 TO 1:RM=53248-CM(I) srem 167 

1120 FOR J=CM( I ) TO CM( 1)4-511 SPOKE J, PEEK ( J 4-RM ) : NE 

XT:NEXT srem 70 

1130 FOR 1=0 TO 1:J=816sGOSUB 1150sJ=344sGOSUB 115 

0sJ=336:GOSUB 1150 srem 210 

1140 J=648sGOSUB 1150sNEXTsPOKE l,PEEK(l)OR 4sPOKE 
56334,PEEK(56334)OR 1:RETURN srem 44 

1150 FOR K=CM( I)4-J TO CM(I)4-J4-7 :READ SHsPOKE K,SH: 

NEXT:RETURN srem 120 

1300 DATA 0,0,28,30,30,126,127,255 srem 113 

1310 DaVa 0,0,16,106,38,28,0,0 srem 166 

1320 DATA 0,8,28,54,28,8,0,0 srem 81 

1330 DATA 0,0,24,126,231,24,0,0 srem 208 

1340 DATA 0,0,28,30,30,126,127,255 srem 117 

1350 DATA 0,0,8,86,100,56,0,0 srem 121 

1360 DATA 0,20,54,8,54,20,0,0 srem 118 

1370 DATA 24,60,102,195,129,66,60,24 srem 235 


Collision Tracking 

So far we have used only PEEKs to see whether a collision is 
taking place. There is a good reason for this. Most of the time, 
you will be creating games where there are random elements, 
things on the screen that your program won't be keeping track 
of. There'll be no way for the computer to know there's been a 
collision without PEEKing. 
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In some games, however, the only things on the playfield 
besides the player-figure will be computer-controlled figures, 
and your program will therefore be keeping track of the loca¬ 
tion of every single item on the screen. Then you can find out 
about collisions by comparing the locations of the various 
items. But it only works when there are few figures on the 
screen, and no possibility of random items to run into. 


Spark: Combining PRINT with POKES and 
PEEKS 

One last game before we move on to sprite collisions. One 
thing we haven't done yet is make a computer-controlled figure 
respond to other characters on the screen. In maze games like 
Pac-Man, the computer-controlled characters wander through a 
maze, making turns correctly and not blundering off through 
the walls of the maze. This is handled by having the computer 
read its own screen memory like a map. When computer- 
controlled figures collide with certain characters, they respond 
in predetermined ways. 

In the game "Spark," we'll use a screen display we created 
in Chapter 3. The game consists of a spark on a wire, racing 
around and around. It's your job to get the spark off the end of 
the wire. But you don't control the spark—instead, you control 
an interruption in the wire. The spark will keep moving at a 
steady pace, controlled by the computer. 

Using f5 (up) and/7 (down), you control the vertical posi¬ 
tion of the break in the circuit. The SHIFT and Commodore 
keys control its horizontal position. Press SHIFT and it has one 
horizontal position; press Commodore and it has the other; 
press SHIFT and Commodore together and the break 
completely disappears. But this is one case where a picture is 
worth more than words—you have to practice the game to 
really understand what your controls will do. 

The top and bottom of the wire also shift randomly, 
constantly undoing your work. You have a time limit—your 
score is how much time you had left when you got the spark 
off the wire. 

As you examine the program, you'll see that the spark 
never exists in screen memory at all—it is only POKEd into 
color memory. But the spark's movement routine in the main 
loop from 100 to 190 PEEKs into screen memory in order to see 
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what direction it is supposed to go next. Using PRINT for 
screen changes gives this game machine language speed in its 
response to the player's keyboard input. This method won't 
work for all programs, of course, but for this one, the computer 
is running a fairly fast-moving figure through a fairly complex 
movement pattern, all in BASIC. If you program carefully 
enough, you can get real speed with character movement in 
BASIC games! 

Program 9-3. Spark 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 DIM A$(6),S$(10)sPOKE 53281,0:POKE 53280,IsPRIN 
T "{CLR}{WHT}":GOSUB 500 :rem 254 

15 Z=4 :rem 49 

20 FOR 1=0 TO 9SPRINT S$ (I)A$(0):NEXT I :rem 91 

30 SM=PEEK(648)*256:CM=55296 trem 49 

35 FOR I=CM TO CM+999:POKE I,1:NEXT :rem 246 

40 OC=PEEK(CM):NC=10:OL=37:NL=77 :rem 157 

50 DIM MV(4,4):GOSUB 700:FR=0:CH=4:P=300:POKE 657, 
128 :rem 185 

60 Y=1:GOSUB 310:A=2:PL=6:GOSUB 200 :rem 250 

100 IF VAL(TI$)>Z THEN GOSUB 300 :rem 239 

110 POKE CM+NL—MV(CH,FR),OC:POKE CM+NL,NC :rem 191 
120 A=PEEK(653)AND3:B=PEEK(197):IF A>0 THEN GOSUB 
{SPACE}200 :rem 180 

130 IF B<64 THEN GOSUB 250 :rem 81 

140 E=PEEK(SM+NL):GOSUB 400:CH=E :rem 135 

145 IF CH=4 AND YY<>0 THEN GOSUB 450 :rem 156 

150 E=PEEK(SM+OL):GOSUB 400:FR=E:IF CH=FR THEN FR= 

4+(FR=4)+D :rem 235 

160 IF CH<4 THEN OL=NL :rem 194 

170 IF CH<0 THEN 600 :rem 227 

180 NL=NL+MV(CH,FR):D=SGN(MV(CH,FR))=-l :rem 74 

190 YY=0:GOTO 100 :rem 189 

200 PH=A:IF A=3 THEN PH=0:GOTO 290 :rem 100 

250 PRINT S $(PL)A$(0):YY=SGN(MV(CH,FR)) :rem 19 
260 PL=PL+(B=6)-(B=3):PL=PL+10*(PL>9)-10*(PL<0) 

:rem 72 

290 PRINT S$(PL)A?(PH):RETURN :rem 244 

300 Y=INT(RND(9)*2):P=P-10:IF Z>1 THEN Z=Z-1 

:rem 228 

310 PRINT "{HOME}{2 SPACES}TIME LEFT{3 SPACES}"STR 
$(p)" " trem 212 

320 PRINT "{HOME}{DOWN}"A?(3+Y)S$(10)A$(6-Y) 

:rem 146 

330 IF P=0 THEN 600 :rem 167 
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340 TI$="000000":RETURN :rem 19 

400 E=E-128-73:IF E>2 THEN E=E-9:IF E>3 THEN E=E-7 

:rem 109 

410 RETURN srem 117 

450 IF YY=-1 THEN OL=CH-40*INT(CH/40)+720:RETURN 

srem 250 

460 OL=CH-40*INT(CH/40)+40:RETURN srem 187 

500 FOR 1=0 TO 6:A$(I)=CHR$(18)sNEXT I srem 254 

520 FOR X=1 TO 38:A$(0 )=A$(0)+CHR$(221)sNEXT 

srem 32 

530 FOR 1=1 TO 5 STEP 4:F0R X=1 TO 19 sA$(I )=A$(I) + 
CHR$(106)+CHR$(107)sNEXTsNEXT srem 2 

540 FOR 1=2 TO 6 STEP 4:A$(I)=CHR$(221)s FOR X=1 TO 
18 srem 209 

545 A$(I)=A$(I)+CHR$(106)+CHR$(107)sNEXT:A$(I)=A$( 
I)+CHR$(221):NEXT srem 123 

550 FOR 1=0 TO 2:A$(I)=A$(I)+CHR$(13)+CHR$(18)sNEX 
T srem 193 

560 FOR X=1 TO 38:A$(0)=A$(0)+CHR$(221)sNEXT 

srem 36 

570 FOR 1=1 TO 3 STEP 2sFOR X=1 TO 19:A$(I)=A$(I)+ 
CHR$(117)+CHR$(105)sNEXTsNEXT srem 2 

580 FOR 1=2 TO 4 STEP 2sA$(I)=A$(I)+CHR$(221)sFOR 
{SPACE}X=1 TO 18 srem 251 

585 A$(I)=A$(I)+CHR$(117)+CHR$(105):NEXT:A$(I)=A$( 
I)+CHR$(221)sNEXT srem 127 

590 S$(0)=CHR$(18)+"{HOME}{2 DOWN}":FOR 1=1 TO 10s 

S$(I)=S$(I-l)+"{2 DOWN]"sNEXT:RETURN srem 41 
600 PRINT S$(10)TAB(17)"{DOWN}THE END":GOTO 600 

srem 242 

700 FOR 1=0 TO 4:FOR X=0 TO 4:READ MV(I,X):NEXT:NE 
XT:RETURN srem 235 

710 DATA 0,-1,-1,40,-1,1,0,-40,1,1,-1,-40,0,-1,-1 

srem 247 

720 DATA 40,1,1,0,1,40,-40,-40,40,0 srem 128 


Checking for Collisions—Sprites 

Characters are not the only thing you can place on the 64's 
screen. In many games, you'll want to include sprites. 
Checking for sprite collisions is even easier than testing for 
character collisions. This is because the 64 has a built-in system 
for detecting when a sprite bumps into another sprite, or even 
into a character. 

Two memory locations are set aside for sprite collision 
detection in your computer. They are addresses 53278 and 
53279, usually referred to as registers V + 30 and V + 31, when 
V=53248. Each bit in each of the two registers is assigned to a 
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particular sprite. For instance, bit 3 in each of these registers 
represents the collision status of sprite 3. 

Usually, all bits in both registers are set to 0, or off. When a 
sprite bumps into another sprite, its bit in register V + 30 is set 
to 1. If that sprite collides with a screen character, its bit in the 
other register, V + 31, is set to 1. 

By PEEKing at these registers' locations, you can find out 
what sprites, if any, have collided. PEEKing(V + 30), for 
example, might give you a value of 72. That means that sprites 
3 and 6 have bumped into each other. When a sprite's bit is 
turned on as it collides, the bit's value is placed in the register. 
Bit 3's value is 8, while bit 6's value is 64. 8 + 64 = 72. 

Collisions between sprites. So you can easily find out 
which sprites have collided simply by PEEKing location V + 30. 
Once you've PEEKed this location, all bits are automatically 
reset to 0, or turned off. 

If your game has only two sprites, all you need do is 
PEEK(V + 30) to see if its value is greater than 0. If it is, the 
sprites, no matter what their numbers, have collided. When 
using more than two sprites, however, you'll have to use the 
logical AND to mask the unwanted sprites. 

IF PEEK(V + 30) AND 16 = 16 THEN GOSUB 300 

This would check to see if sprite 4 (bit value of 16) was involved 
in a collision. 

This program is a variation of a machine language joystick- 
controlled sprite routine from Chapter 8. It's not quite a game, 
but with some work on your part, it could be. 

Here's how the program works. 

Line Function 

10 Set screen background color, establish variable V, 

and set X and Y coordinate positions for both 
sprites. X and Y are sprite 0's starting location, 
while X2 and Y2 are the coordinates for sprite 1. 

15 READ DATA for machine language movement 

subroutine. 

20 READ DATA for sprite creation. Since both 

sprites use identical DATA statements, informa¬ 
tion is only POKEd into addresses 12288 + X. 
Both sprites will take their information from this 
area. 
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30 Set sprite pointers so that both sprites look to 

12288 for DATA information. 

40 Enable both sprite 0 and sprite 1. 

50 Set color of sprite 0 to light red (V + 39,10) and 

sprite 1 to yellow (V+40,7). 

60-70 POKE in location of both sprites. 

80 Access the machine language subroutine for 

faster joystick movement. 

90-100 Move sprite 1 vertically down the screen, using 

wraparound. 

110 PRINT the value read from PEEK(V + 30) at the 

top-left comer of the screen. As you move the 
light red sprite across the screen, this number 
will change to a 3 when the sprites collide. 

150 End of main loop. 

990-1010 DATA statements for machine language 

subroutine. 

60000-60020 DATA statements for sprite creation. 

Program 9>4. Sprite-to-Sprite Collisions 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 POKE 53281,0s PRINT" {CLiR} " :V=53248:X=120:Y=120:X 
2=150:Y2=50 srem 35 

15 FOR X=828 TO 949:READ AsPOKE X,A;NEXT srem 11 

20 FOR X=0 TO 63 sREAD AsPOKE 12288+X,AsNEXT 

srem 136 

30 POKE 2040,192sPOKE 2041,192 srem 24 

40 POKE V+21,3 srem 214 

50 POKE V+39,10sPOKE V+40,7 srem 191 

60 POKE V+0,XsPOKE V+2,X2 srem 156 

70 POKE V+1,YsPOKE V+3,Y2 srem 161 

80 SYS(937) srem 91 

90 Y2=Y2+3:IF Y2>255 THEN Y2=0 srem 111 

100 POKE V+3,Y2 srem 43 

110 PRINT"{HOME}"PEEK(V+30) srem 208 

150 GOTO 80 srem 55 

990 REM DATA FOR JS ROUTINE srem 74 

995 DATA 173,1,220,74,176,3,206,1,208,74,176,3,238 

,1,208,74,176,42,173 srem 134 

996 DATA 0,208,208,31,173,16,208,41,1,208,16,173,1 

6,208,9,1,141,16,208 srem 114 

997 DATA 169,80,141,0,208,96,234,234,173,16,208,41 

,254,141,16,208,206 srem 87 
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998 DATA 0,208,96,234,234,74,176,32,238,0,208,240, 

30,169,80,205,0,208 :rem 82 

999 DATA 208,20,173,16,208,41,1,240,13,173,16,208, 

41,254,141,16,208,169 ;rem 172 

1000 DATA 0,141,0,208,96,234,234,173,16,208,9,1,14 

1,16,208,96,234,234 srem 54 

1010 DATA 32,60,3,32,60,3,32,60,3,32,60,3,96 

srem 83 

59999 REM SPRITE DATA srem 238 

60000 DATA0,0,0,0,0,0,7,255,224,15,255,240,25,36,1 

52,31,255,248,15,255 srem 127 

60010 DATA 240,7,255,224,0,24,0,32,189,4,49,255,14 
0,43,255,212,36,60,36,40,24 srem 187 

60020 DATA 20,48,36,12,32,90,4,0,189,0,1,126,128,3 
,0,192,0,0,0,0,0,0,36,40,24 srem 135 

Notice the number changing from 0 (indicating no colli¬ 
sion) to 3 (indicating a collision between sprite 0 and sprite 1) 
as the sprites bump into each other. You can keep the 3 
displayed by keeping in contact with the computer-controlled 
sprite. 

Even though this was the fast version of joystick move¬ 
ment, note how much it slowed down with the addition of 
only a few lines in the main loop. Keep this in mind when you 
decide how complicated to make your own game's main loop. 

Making this program display a score is only a matter of a 
few changes. 

Insert these changes and additions to Program 9-5: 

110 PRINT"{HOME}"PEEK(V+30);"{9 SPACES}SC0RE="SC 

:rem 158 

120 IF PEEK(V+30)=3 THEN SC=SC+1 srem 224 

You could just as easily subtract points as add them. 

Collisions between sprites and characters. The second 
collision register, V + 31, is reserved for collisions between 
sprites and other screen characters. The value stored in the 
register will tell you which sprite was involved in the collision, 
but it will not tell you which screen character was bumped 
into. Still, this gives you a number of uses for this register. 

A sprite could collide with character missiles, for instance. 
It wouldn't be important which character the sprite collided 
with, only that it was hit. To test for a particular sprite's colli¬ 
sion with screen characters, you again need to mask the other 
sprites with logical AND. For example: 

IF PEEK(V + 31) AND 8 = 8 THEN GOSUB 300 
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would test to see if sprite 3 was involved in a collision with a 
screen character. 

These program changes show both sprite-to-sprite and 
sprite-to-character collisions. Add them to Program 9-4. 


Program 9-5. Sprite-to-Character Collisions 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


7 L=1024sC=42:CM=54272 

110 PRINT "{HOME}{WHT}SPRITE TO SPRITE*" 
; "(V+30) 

115 PRINT "{2 DOWN}SPRITE TO CHARACTER* 
)? "(V+31) 

120 L=L+1sIF L>2023 THEN L=1024 
130 POKE L,C:POKE L+CM,5:POKE L-1,32 


srem 178 
PEEK(V+30) 
srem 245 
"PEEK(V+31 
srem 188 
srem 93 
srem 243 


Both register values will print on the screen with this program. 
Although there are two sprites on the screen, you control only 
the light red one. A moving character zips across the screen as 
well. The register values change each time the player- 
controlled sprite collides with the other sprite, the moving 
character, or the text at the top of the screen. (Remember that 
the text is really just standard characters.) 

Different kinds of collisions can occur on the screen at the 
same time with the 64. Keeping track of these collisions is rela¬ 
tively easy, especially when you're using sprites. 

Invisible Characters 

Remember when you created multicolored characters? Not 
only are they more attractive on the screen, but they also have 
a very useful purpose when you want to detect only certain 
screen characters. 

A collision between a sprite and a character causes bits to 
be set in sprite register V+31. This makes it easy to detect 
collisions between important characters on the screen. 
However, if you want to have some characters that would set 
off the collision register and others that didn't, you may think 
that it's impossible. It's not. 

A game like Pac-Man, for example, has some characters 
that set registers, and others that don't. You certainly wouldn't 
want the ghost-like sprites to set bits in a collision register 
when moving over the dots in the maze. You would want these 
same sprites to detect the walls of the maze, though. 
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You can use multicolored characters to distinguish 
between characters that will set bits in the V + 31 register and 
those that do not. Using this technique, you can place charac¬ 
ters on the screen that will be ignored by the sprite detection 
register. 

You'll recall that multicolored characters are made up of 
bits paired in four possible combinations. These combinations 
are: 00, 01,10, and 11. Each of these bit-pair combinations 
produce a different color. Characters completely made up of 00 
and 01 paired bits will not be detected by the sprite collision 
register. 

Creating background characters on the screen becomes 
simple. As long as the characters are multicolored and made 
up only of 00 and 01 bit-pairs, the sprites moving across the 
screen will not detect a collision. Other characters, perhaps 
multicolored characters made up of 10 and 11 bit-pairs, would 
cause the register to be set. 

This program creates a multicolored character made up 
only of 00 and 01 bit-pairs, moves it about the screen, and 
allows you to see a sprite bump into it, but not set the collision 
register. The multicolored character is drawn in Figure 9-1, 
showing you how it was designed using only those two bit- 
pairs. 

Figure 9-1. Multicolor Custom Character 

Bit 7 6 5 4 3 2 1 0 Data 

Bit 128 64 32 16 8 4 2 1 Values 

Values 

20 
65 

65 will appear as: 

65 
20 
20 
20 
65 
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Program 9-6. Invisible Character Detection 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

8 GOTO 500 :rem 6 

10 POKE 53281,0:PRINT"{CLR}"sV=53248 sX=120sY=120 sX 

2=150:Y2=50 srem 35 

11 POKE 53282,15sP0KE 53283,2:POKE 53270,PEEK{5327 

0) OR 16 :rem 8 

15 FOR X=828 TO 949:READ AsPOKE X,AsNEXT :rem 11 
20 FOR X=0 TO 63:READ AsPOKE 12608+X,AsNEXT 

srem 132 

25 L=1520sC=28sCM=54272 srem 231 

30 POKE 2040,197sPOKE 2041,197 srem 34 

40 POKE V+21,3 srem 214 

50 POKE V+39,10sPOKE V+40,7 srem 191 

60 POKE V+0,XsPOKE V+2,X2 srem 156 

70 POKE V+l,YsPOKE V+3,Y2 srem 161 

80 SYS(937) srem 91 

90 Y2=Y2+3 sIF Y2>255 THEN Y2=0 srem 111 

100 POKE V+3,Y2 srem 43 

110 PRINT"{HOME}g2iSPRITE TO SPRITE={2 SPACES}"P 
EEK (V+30);“ (V+30) srem 133 

115 PRINT"{2 DOWN}SPRITE TO CHARACTER={2 SPACES}"P 
EEK (V+31); " (V+31) srem 188 

120 L=L+1sIF L>2023 THEN L=1024 srem 93 

130 POKE L+CM,15sPOKE L,CsPOKE L-1,32 srem 36 

150 GOTO 80 srem 55 

500 PRINT CHR$(142) srem 11 

510 POKE 52,48sPOKE 56,48sCLR srem 75 

520 POKE 56334,PEEK(56334) AND 254 srem 224 

530 POKE 1,PEEK(1) AND 251 srem 54 

540 FOR 1=0 TO 511sPOKE 1+12288,PEEK(1+53248)sNEXT 

srem 231 

550 POKE 1,PEEK(1) OR 4 srem 162 

560 POKE 56334,PEEK(56334) OR 1 srem 72 

570 POKE 53272,(PEEK(53272) AND 240)+12 srem 187 

580 FOR X=12512 TO 12519sREAD AsPOKE X,AsNEXT 

srem 247 

590 GOTO 10 srem 56 

595 REM DATA FOR CUSTOM CHARACTER srem 240 

600 DATA 20,65,65,65,20,20,20,65 srem 24 

990 REM DATA FOR JS ROUTINE srem 74 

995 DATA 173,1,220,74,176,3,206,1,208,74,176,3,238 

,1,208,74,176,42,173 srem 134 

996 DATA 0,208,208,31,173,16,208,41,1,208,16,173,1 

6,208,9,1,141,16,208 srem 114 

997 DATA 169,80,141,0,208,96,234,234,173,16,208,41 

,254,141,16,208,206 srem 87 
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998 DATA 0,208,96,234,234,74,176,32,238,0,208,240, 

30,169,80,205,0,208 :rem 82 

999 DATA 208,20,173,16,208,41,1,240,13,173,16,208, 

41,254,141,16,208,169 :rem 172 

1000 DATA 0,141,0,208,96,234,234,173,16,208,9,1,14 

1,16,208,96,234,234 :rem 54 

1010 DATA 32,60,3,32,60,3,32,60,3,32,60,3,96 

:rem 83 

59999 REM SPRITE DATA ;rem 238 

60000 DATA0,0,0,0,0,0,7,255,224,15,255,240,25,36,1 

52,31,255,248,15,255 srem 127 

60010 DATA 240,7,255,224,0,24,0,32,189,4,49,255,14 
0,43,255,212,36,60,36,40,24 :rem 187 

60020 DATA 20,48,36,12,32,90,4,0,189,0,1,126,128,3 
,0,192,0,0,0,0,0,0,36,40,24 srem 135 

Only the routine from line 500 to line 600 is new. This sets up 
the custom multicolored character, and is completely explained 
in Chapter 4, Custom Characters. 

The first 64 standard characters were copied and placed in 
memory locations starting at 12288. The custom character was 
located where the pound sign is normally placed. 

As you move the light red sprite across the screen, watch 
the values change at the top. When the sprites collide, a value 
of 3 is still placed in register V + 30. Each sprite also sets bits in 
the V+31 register as it collides with the text. Sprite 0 sets a 
value of 1 in the register, while the computer-controlled sprite, 
sprite 1, sets a value of 2. But neither sprite detects a collision 
with the multicolored character. 
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Just how important is sound in a videogame? Try playing a 
favorite game with the sound turned off. You'll be amazed at 
how much you'll miss the various tones, noises, and melodies 
that you are accustomed to hearing while you play the game. 
Your timing will probably be off, your score will be lower, and 
most importantly, you won't enjoy the game as much. Why? 

Uses of Sound 

Sounds help you while you play a videogame by providing 
feedback of your game actions. As you play Joust, for example, 
there are sounds which give you information on almost every 
event that occurs. A collision in which you defeat the other 
knight is different from one in which you are defeated. 
Colliding with different surfaces results in different sounds. 
When you receive a bonus knight, there is yet another sound. 
These sounds aid you as you play, for as you concentrate on 
keeping you own knight alive, the sounds tell you what's 
going on elsewhere on the screen. Pac-Man also provides 
sounds as information, although to a lesser degree. Each dot 
that is eaten, and thus each point that is awarded, produces a 
sound. You know you are gaining points without having to 
actually look to check. When a power dot is eaten, another 
sound is made which signals that ghosts can now be chased. 
Sound as information is a valuable aid in a game. 

Sounds also affect your mood as you play, drawing you 
into the game's unique world. Imagine the loss you feel when 
your Pac-Man is caught by one of the ghosts and the short 
"Sorry" sound routine plays. The fierce stamping sounds at 
the opening of Donkey Kong only urge you on to the top. Never 
mind the anger of the ape, you tell yourself. Part of this mood 
is generated by the pace of the sounds and music. 

One of the most successful arcade games. Space Invaders, 
uses a repetitive sound as the aliens move across the screen. 
As their numbers decrease, the sounds become louder and 
faster. The effect is one of excitement and anxiety. 

Many games have different levels of difficulty. Perhaps 
your game will, too. Often the screen alters slightly when a 
new level of difficulty is reached. A faster background sound 
or a higher pitched noise can increase the pace of the action. 
The high-pitched, modulating drone that seems to yell 
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"Danger! Danger!" as the ghosts in Pac-Mart chase you is a ^ 

good example. 

Pay close attention to the sounds you hear the next time 
you play a video arcade game. What sounds are used for what 
effects? What do those sounds do to and for the player? How 
would the game be less enjoyable or harder to play if the 
sounds were eliminated? Seeing how other game creators use ^ 

sound will help you decide how and when to use sound in 
your own games. ^ 

The SED Chip 

Creating sounds on the Commodore 64 is very different from 
other computers which use controllable oscillators to produce 
sound. The VIC-20, for example, creates sounds quite simply. 

The 64, however, has a built-in music and sound synthesizer. 

This allows you to create much more complicated sounds, but 
the process of creating those sounds is also more complex. ^ 

The 64's SID (Sound Interface Device) chip creates sounds 


and music by using 29 different memory locations, or registers. 
These registers can be divided into five sections. These 
sections and the registers in each are: 


Section 

Registers 

Control 


Section 1 

0-6 

Voice Number 1 


Section 2 

7-13 

Voice Number 2 

KJ 

Section 3 

14-20 

Voice Number 3 


Section 4 

21-24 

Filter Controls 

O 

Section 5 

25-28 

Read-Only Controls 

! 1 


The first four sections are sometimes referred to as write- "" 

only registers. You can POKE, or write new values to these loca- 
tions, but you can't PEEK there to find out the values in a 
particular register. Because they are write-only, you can't use \^j 

the logical ANDs and ORs to turn certain bits on or off. You can 
only POKE a number directly into a register. O 

The last section of registers is read-only. It's just the oppo¬ 
site: you can PEEK, but you can't POKE. The four registers in 
this section are useful as random number generators when you 
create sound effects. For instance, register 27 could be used to ^ 

generate random numbers to represent a static or white noise 
sound. ^ 

The first three sections, registers 0-20, are the ones you'll 
find the most use for when creating sound effects for your w 

games. Each section is one voice of the 64. They can be played ^ 

KJ 
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separately or they can be combined. Each voice is capable of 
creating any of the notes within the human auditory range. 

Getting Ready 

Using the SID chip in the 64 to create game sound effects may 
seem complex to you, especially if you're just beginning. Don't 
worry. As long as you follow the steps outlined, you'll quickly 
be creating your own game sounds and music. 

To create a single sound or note, you'll have to do five 
things. Each step is explained below. 

1. Frequency. You have to select a frequency for your 
sound or note. The first two registers in each voice control this. 
These registers combine their values to form one number, 
which is the frequency of the note. This is not important 
unless you want specific notes played, as when you're creating 
a tune. It is the high frequency register, register 1 in voice 1, for 
instance, which has the most effect on the pitch of a note. 

Most of the time you'll use register 1 to change a note's pitch. 
Just remember that a high pitch is soprano, a low pitch is bass, 
and you'll be able to control a note's frequency. 

2. Wave form. You also need to select a wave form for the 
note you're creating. This is chosen by POKEing the appro¬ 
priate value into the fifth register of each voice. You have four 
wave forms to choose from. The triangle wave form produces a 
flute-like sound, while the sawtooth wave form creates a more 
twangy, bright sound. The pulse wave form can produce a 
variety of sounds because other registers in each voice control 
its frequency separately. The noise wave form creates "white 
noise," ranging from a hiss to a rumble. 

3. Attack, Delay, Sustain, and Release (ADSR). The sixth 
register in each of the three voices controls this. The ADSR is 
somewhat complicated, and will be explained in more detail 
later in the chapter. 

4. Volume. Register 24 controls the volume, which has a 
range from 0 to 15. Zero is off, while 15 is the loudest volume. If 
this is not set, you won't hear anything when the sound effect 
runs. 

5. Gate bit. Unless the gate bit is turned on, the sound will 
not play. This bit is in the same register as the wave form 
values, so it's often set at the same time. 
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The SID Register 

It's difficult trying to memorize the registers, what each does, 
and which bit controls each register function. Refer to the SID 
Register Table whenever you need this information. 
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Making a Simple Sound 

You're ready to create your first note on the 64. Look at this 
^ program, which plays a high note and then turns it off, to see 

how each step was followed. Refer to the SID Register Table to 
^ check the POKEs used. 

Line Function 

^ 10 Establish variable S equal to register 0. Beginning 

memory location of SID registers is 54272. 

' N| 20 Set the frequency of the note. 
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30 Set ADSR. Bit 3 in register S + 5 is set by POKEing in a 

value of 8. This sets the Decay to level 8. The Sustain is 
set to level 15 and the Release is set to level 8 by 
POKEing 248 into registers + 6(248 = 16*15 + 8). 

40 Turn on volume and set it to high. 

50 Set wave form as the triangle wave form. Gate bit is 
also turned on. POKEing 16 turns on bit 4 (triangle 
wave form) and 1 is added to the value to turn on bit 
0 (Gate bit). 

60 Delay loop so that sound will play longer. 

70 Set wave form again, this time with the gate bit 
turned off. 

80 Another delay loop. 

90 Set volume level to 0. 

Not all of the SID register controls were used in creating this 

note, but it's a beginning. 




Program 10-1. One Note 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 S=54272 

20 POKE S f 150:POKE S+1,200 
30 POKE S+5,8sPOKE S+6,248 
40 POKE S+24,15 
50 POKE S+4,17 
60 FOR T=0 TO 1000:NEXT 
70 POKE S+4,16 
80 FOR T=0 TO 1000:NEXT 
90 POKE S+24,0 

Attack; Decay; Sustain; and Release (ADSR) 

Don't let the title frighten you. ADSR is actually little more 
than an expanded volume control. Although register 24 hums 
the volume on and off, as well as sets its level, ADSR is some¬ 
thing each sound effect routine must have. 

Think of what an explosion sounds like. It begins quite 
loud, and then dies down quickly. You might think of it as 
starting at full volume, keeping that level for a second or so, 
and then falling off rapidly. The entire sound might last only a 
few seconds. We can call this process of getting loud, then 
eventually getting softer, as the ADSR of a note. Sometimes it's 


:rem 245 
:rem 124 
:rem 144 
:rem 9 
:rem 218 
:rem 235 
:rem 219 
:rem 237 
:rem 216 
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called the sound envelope. 

Each natural and artificial sound has its own peculiar 
envelope, or ADSR. It's really what makes one sound different 
from another. By adjusting the ADSR of a sound you can 
imitate many natural sounds, and also produce completely 
new sounds. 

ADSR breaks every note into four parts. By altering one or 
more of these parts, you control the note's sound. Take a look 
at Figure 10-1, ADSR Envelope. 


^ Figure 10-1. ADSR Envelope 
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Attack. As the sound begins, the volume rises rapidly. 
This section of the envelope is called the attack. When you 
create sound effects, you can set the attack to last anywhere 
from two milliseconds to eight seconds. Sounds like bangs, 
explosions, taps, or peeps have a short attack. An attack of 0 
means the sound starts at full volume. 

Decay. After this initial attack, the volume decreases 
during the decay section of the envelope. This decay of volume 
lasts a specified amount of time before the next level is 
reached, the sustain. In this way decay is like attack: it is a 
function of time expired. The number you select for this func¬ 
tion determines how long the decay process will take. 

Sustain. After the decrease in volume, the sound will 
stabilize for a time. This is the sustain. The number you select 
for this function of sound determines the volume level reached 
after the decay. For example, if the sustain is set at 12, the 
decay will drop the volume from level 15 to level 12. The note 
will stay at this volume until the gate bit is cleared. You can 
sustain a note indefinitely, simply by not clearing the gate bit. 

Release. Another function of time, release is the final 
descent toward zero volume. Sounds like beeps, for instance, 
have a very short release time. Others, like a gong-like sound, 
have long release times. 

Setting the ADSR 

The ADSR parameters are set by two registers for each of the 
computer's three voices. Voice 1, for example, uses registers 5 
and 6. To set the ADSR, you POKE in values to those registers. 
Each of the four parts of the ADSR can be set at a level from 0 
to 15. But those aren't the numbers you POKE in. Look at Table 
10 - 2 . 

Since you POKE the attack and decay into the same 
register, and the sustain and release into another, you'll need 
to combine the values of the pairs and POKE in the total. For 
example, if you want the attack set at 3 and the decay at 12, 
you would add 48 (the number for level 3 of attack) to 12 (the 
number for level 12 of decay), for a total of 60. That's the 
number you'd POKE into register 5 to set voice 1 with an attack 
of 3 and decay of 12. 

If you take Program 10-1, One Note, and alter the 
ADSR values, you can change the sound of the note. Line 30 
held the ADSR settings. You could change it to: 
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30 POKE S+5,204 :POKE S+6,255 

The attack was set at 12 (192) and the decay at 12 (12). The S + 5 
register was then POKEd with 204 (192 +12). Sustain and 
release were both set to maximum (240 and 15, respectively), 
so 255 was POKEd into register S + 6. Use your own ADSR 
values to experiment with the envelope parameters. 


Table 10-2. ADSR Values and POKES 



Dynamic Changes 

Using the SID chip, you can create single notes, and control its 
ADSR. You could certainly use single notes in a game 
program. If a character dashes across the screen, for instance, 
you might want to have a simple beeping sound playing at the 
same time. This can be easily done with single notes. You 
would set a short attack, decay, and release, and set the 
sustain to maximum. Let's modify that first sound effect 
program to see an example. Adding lines and making changes 
to Program 10-1 will create the following new program. 
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Program 10-2. Beeps 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


10 S=54272 

20 POKE S,150:POKE S+1,200 

30 POKE S+5,0:POKE S+6,240 

40 POKE S+24,15 

50 POKE S+4,17 

60 FOR T=0 TO 200:NEXT 

70 POKE S+4,16 

80 FOR T=0 TO 200:NEXT 

90 GOTO 50 


:rem 245 
:rem 124 
:rem 128 
:rem 9 
:rem 218 
:rem 188 
:rem 219 
:rem 190 
:rem 7 


<J 

u 


All we've done is turn the sound on and off every one-fifth of a 
second. You can vary the time each beep takes by changing the 
200 in lines 60 and 80. 

You just created a sound effect with dynamic change. 
Instead of simply turning the note on and letting it continue, 
you alternated the note with periods of silence. This is the key 
to sound effects. Change something. Since the SID chip has 
many parameters, you have numerous places to practice this 
technique of dynamic change. 

Instead of using silence to change a note, let's change the 
pitch, or frequency. Altering the original version of Program 
10-1 changes the sound effect to this: 

Program 10-3. Frequency Change 

10 S=54272:P=10 
20 POKE S,150:POKE S+1,P 
30 POKE S+5,0:POKE S+6,240 
40 POKE S+24,15 
50 POKE S+4,17 
60 FOR P=10 TO 250 STEP 2 
70 POKE S+l,PsNEXT 
80 FOR T=0 TO 1000:NEXT 
90 GOTO 60 


:rem 29 
:rem 58 
:rem 128 
:rem 9 
:rem 218 
:rem 227 
:rem 58 
:rem 237 
:rem 8 


What you've done is set the high frequency register to equal P, 
which changes in line 60. The sound will continue until you 
press the RUN/STOP and RESTORE keys. Quite a different 
sound, isn't it? 

You can change the sound effect even more by experi¬ 
menting with some of the parameters. For example, to increase 
the pitch jump each time through the FOR-NEXT loop in line 


V .J 




266 



Sounds and Music 


r > 
r\ 
r ^ 

r^ 
n 

n 

n 

n 

n 

o 

n 

n 

n 

n 

n 


60, change it to: 

60 FOR P=10 TO 250 STEP 6 :rem 231 

Or you can reduce the range of the pitch change by 
altering the values in line 60's FOR-NEXT loop. Try: 

60 FOR P=10 TO 60 STEP 2 srem 178 

or 

60 FOR P=180 TO 250 STEP 5 :rem 30 

You can even reverse the pitch scale by changing line 60 
to: 

60 FOR P=250 TO 10 STEP -2 srem 16 

Or you can create another line to make the sound first rise 
in pitch, then lower. Add these lines to the original Program 
10-3: 

75 FOR P=250 TO 10 STEP -2 srem 22 

76 POKE S+l,PsNEXT srem 64 

Shortening the delay loop also creates a new sound. Try: 

80 FOR T=0 TO 50:NEXT srem 145 

As you can see, changing the FOR-NEXT loop and the 
STEP instruction creates the most dynamic changes. By 
altering just a few things, you can make the computer play 
totally different sounds. 

Random Notes 

Register 27 in the SID chip can generate random numbers from 
0 to 255 at a very rapid pace. By selecting the noise wave form 
for voice 3 (register 18, POKE 128), you can create these 
numbers. PEEKing register 27 lets you read the values there, 
which can then be POKEd into the frequency register of 
another voice to produce a series of random notes. It's useful 
and very easy to do. 


Program 10-4. Random Notes 

10 S=54272 :rem 245 
20 POKE S+18,123sPOKE S,75 srem 147 
30 POKE S+5,0sPOKE S+6,240 srem 128 
40 POKE S+14,12sPOKE S+15,250 srem 21 
60 POKE S+24,207 srem 62 


70 FOR L=0 TO 25SPOKE S+4,17sPOKE S+l,PEEK(S+27) 

srem 97 
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75 FOR T=0 TO 100sNEXTsNEXT:POKE S+4,0 :rem 177 
80 FOR T=0 TO 500sNEXT:GOTO 70 srem 155 

The important lines in this program are 20 and 70. Line 20 sets 
the noise wave form of voice 3 (POKE S +18,128) so that 
register 27 will generate random numbers. Line 70 sets up a 
FOR-NEXT loop that plays 26 random notes, the pitch of each 
determined by PEEKing register 27 (S + 27). These random 
values are then POKEd into register S +1. 

A random sound like this could be used in several types of 
games, perhaps as a background when characters or screen is 
set up. 

Ring modulation. Another technique you can use when 
creating random sounds is ring modulation. This produces 
harmonic structures that are not even and smooth as in 
normally generated notes. This lets you create sounds like bells 
and gongs. 

To use ring modulation, you have to turn on bit 2 of 
register 4 (for voice 1) at the same time you select the triangle 
wave form and set the gate bit. In other words, by POKEing 
S+4, 21, you'll turn on the ring modulation ability of the SID 
chip's voice 1. 

Ring modulation creates different sounds depending on 
the frequencies of voices 1 and 3. The overtone structure of 
voice 3 is added to that of voice 1. All you really have to know, 
however, is that it makes an interesting sound. 

Making a few changes to the random note program can 
add ring modulation. 


Program 10-5. Ring Modulation 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


10 S=54272 

20 POKE S+18,128.-POKE S,75 
30 POKE S+5,0:POKE S+6,240 
40 POKE S+14,12sPOKE S+15,5 


srem 245 
srem 147 
srem 128 
srem 179 


60 POKE S+24,207sPOKE S+4,21 

70 FOR L—0 TO 15sPOKE S+l,PEEK(S+27) AND 

75 FOR T=0 TO 100sNEXT:NEXTsPOKE S+4,0 
80 FOR T=0 TO 500sNEXT*GOTO 60 


srem 232 
224 

srem 28 
srem 177 
srem 154 
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Look at line 70. The PEEK (S + 27) AND 224 creates a lower 
frequency. No matter what the value received from PEEK 
(S + 27), the frequency value will never be more than 224. 

You can hear even stranger sound effects using ring 
modulation by changing the frequencies of voice 1 and 3. 
Here's an example: 

Program 10-6. Changing Ring Modulation 

10 S=54272 srem 245 

15 POKE S+14,134:POKE S+15,10 srem 22 

16 POKE S+3,8sPOKE S+2,0sPOKE S+14,255sPOKE S+15,3 

sPOKE S+18,32 srem 193 

18 POKE S+24,15 srem 14 

20 POKE S+5,15sPOKE S+6,240 srem 181 

30 POKE S+4,19 srem 218 

50 FOR T=1 TO 80$ POKE S+l,T+0sNEXT srem 133 

55 FOR T=80 TO 1 STEP-1sPOKE S+l,T+50sNEXT srem 89 
70 GOTO 30 srem 3 

Lines 50 and 55 are where this frequency change is executed. 
Line 50 causes voice l's pitch to rapidly go from 1 to 80. Line 55 
brings it back down again, but adds a value of 50, so actually it 
drops from a value of 130 to 51. 

Ring modulation is an interesting technique of producing 
sounds. However, since voice 3 cannot be used for another 
purpose if ring modulation is operating, you're restricted to 
only two voices. If you need more than two voices at a time, 
you'll have to compromise. 

Sound Effects 

Here are two sound effects which use ring modulation. 
Although you may find use for these in your own game, their 
true purpose is to show you what can be created with the SID 
chip and ring modulation. Don't be afraid of changing values 
in either of these programs. Oftentimes that's the best way to 
learn. 

Program 10-7. Raygun 

5 PRINT"{CLR}{WHT}{5 DOWN}{YEL}RAYGUN{WHT} SOUND D 

EMO- TO HEAR THE NEXT{DOWN} srem 205 

6 PRINT"RAYGUN SOUNDS, JUST HIT ANY KEY. THE 

srem 206 

7 PRINT"{DOWN}SOUNDS ARE DONE WITH RING MOD. AND B 

Y srem 185 

8 PRINT"{DOWN}HITTING ANY KEY YOU ARE CHANGING THE 

srem 213 
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9 PRINT"{DOWN}FREQUENCY OF VOICE 3 TO A HIGHER PIT 

CH. srem 42 

10 POKE 53281,0sS=54272sF=0 srem 170 

15 POKE S+14,250:POKE S+18,17 srem 31 

20 POKE S,1sPOKE S+4,16sPOKE S,15sPOKE S+6,16sPOKE 

S+24,143 srem 254 

25 POKE S+4,21sPOKE S+18,17sPOKE S+15,F srem 122 

30 FOR X=200 TO 100 STEP-5sPOKE S+l,XsNEXT srem 88 
35 FOR X=100 TO 0 STEP-1sPOKE S+l,XsNEXT srem 247 
40 POKE S+4,20sPOKE S+18,16 srem 182 

50 FOR T=0 TO 100sNEXT$F=F+5sIF F=150 THEN F=1 

srem 226 

55 GET A$sIF A$="" THEN 55 srem 247 

60 GOTO 25 srem 6 


^J 


Program 10-8. Ring Modulation Demo 


1 PRINT"{CLR}{WHT}{2 DOWN}(YEL}"SPC(10)"RING MODUL 

ATION DEMO{WHT} srem 106 

2 PRINT"{3 DOWN}CONTROLS s{5 SPACES}{RVS}FI{OFF} 

{2 SPACES}TURN OFF VOLUME srem 217 

3 PRINTSPC(14)"{DOWN}{RVS}F3{OFF}{2 SPACESjRAISE F 

REQ. VOICE 3 srem 37 

4 PRINTSPC(14)"{DOWN}{RVS}F4{OFF}{2 SPACESjLOWER S 

AME srem 93 

8 PRINTSPC(14)"{DOWN}{RVS}F5{OFF}{2 SPACESjRAISE F 

REQ. VOICE 1 srem 42 

9 PRINTSPC(14)"{DOWN}{RVS}F6{OFF}{2 SPACESjLOWER S 

AME srem 100 

10 PRINTSPC(14)"{DOWN}{RVS}F7{OFF}{2 SPACES}INCREA 

SE INTERVAL srem 141 

11 PRINTSPC(14)"{DOWN}{RVS}F8{OFF}{2 SPACES}DECREA 

SE INTERVAL srem 129 

14 POKE 53281,0sS=54272sP=6sPl=100sXl=100sX2=150 

srem 111 


15 POKE S+14,20sPOKE S+15,PlsP0KE S+18,17 srem 228 
20 POKE S,1sPOKE S+4,16sPOKE S+5,15sPOKE S+6,240sP 
OKE S+24,143 srem 141 

25 POKE S+4,21sPOKE S+18,17 srem 187 

30 FOR X=X1 TO X STEP PsPOKE S+l,XsNEXT srem 4 

35 FOR X=X2 TO XI STEP -PsPOKE S+l,XsNEXT srem 104 

36 GET A$ sIF A$ ="{Fl}" THEN POKE S+24,0 srem 128 
40 IF A$="{F3}" THEN Pl=Pl+5sIF PI>250 THEN Pl=250 

srem 208 

45 IF A$="{F4}" THEN Pl=Pl-5sIF Pl<5 THEN Pl=5 

srem 21 


50 POKE S+15,PI 
60 IF A$="{F7}" THEN 


srem 37 

P=P+1sIF P>20 THEN P=20 


srem 162 
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70 IF A$="{F8}" THEN 
80 IF A$«“{F5J" THEN 
N X1=200:X2=250 
90 IF A$="{F6}“ THEN 
X1=25:X2=75 
200 GOTO 30 


P=P-1:IF P<1 THEN P=1 srem 69 
Xl=Xl+5sX2=X2+5:IF X2>250 THE 

srem 116 

Xl=Xl-5:X2=X2-5:IF XI<25 THEN 

srem 244 
srem 46 


Filtering Sounds 

Another powerful and useful feature of the SID chip is its vari¬ 
able filter controls. As with any filter, which lets some things 
pass through and stops others, the filters in the SID chip stop 
certain frequencies and allow others to be heard. Filtering 
sounds on the 64 creates purer sounds, sounds without over¬ 
tones. But the most important thing to remember is the effect 
that filters can have on your game sounds. 

When you use a filter, you'll have to decide two things. 
First, you have three types of filters to choose from. They are 
the High Pass filter, the Band Pass filter, and the Low Pass 
filter. All three are found in register S + 24. By setting different 
bits, you choose the filter. Refer to Table 1, SID Register Table, 
for the bit values. Second, filters are set by selecting a 
frequency cutoff point. This is similar to adjusting the filters' 
weave. The tighter the weave, the smaller the holes, and the 
fewer sounds let through. 

If you're using the High Pass filter, for example, and set 
the frequency cutoff point, all frequencies higher than that 
point are allowed to pass through unchanged. The opposite is 
true if you use the Low Pass filter. Only frequencies below the 
cutoff point pass unchanged. The Band Pass filter, on the other 
hand, lets only those frequencies close to the cutoff point 
through. 

Registers 21 and 22 set the frequency of the cutoff point. 
Register 23 allows you to switch sounds from any of the 64's 
voices to pass through the filters. Register 24 selects the filter. 
Using these registers, you can choose a cutoff point, select a 
filter, and channel a voice through that filter. By sweeping the 
cutoff point from its lowest to its highest value, you can create 
interesting sound effects. 

Program 10-9 is an example of filtered sound. The program 
creates a rushing sound by using the noise generator of voice 
1. The High Pass filter is used, while the frequency cutoff point 
is changed with a FOR-NEXT loop. 
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Here's how the program works: 

Line Function 

10 Set variable S to equal register 0. 

20 Set note frequency in voice 1. Switch on filter for 
voice 1 (S + 23,1). 

30 Select filter (High Pass filter), as well as turn all four 
volume control bits on. This is done with S+24,79. 
Other two POKEs set ADSR for note. 

40 Set note frequency in voice 3. 

50 Set wave form to noise wave form, turn gate bit on. 

60 Establish variable E F will decrease, starting at 250 
and ending with 2. 

70 Set frequency cutoff point as E Set note frequency as 
E 

80 Turn gate bit off. 

90 Wait for key to be pressed. 

100 Return to line 50 and execute main loop again. 


Program 10-9. Torpedo 

Remember, do not type the checksum number at the end of each line. For example, do 
-not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


10 S=54272 

20 POKE S,20SPOKE S+l,5sPOKE S+23,1 

30 POKE S+24,79sPOKE S+5,15sPOKE S+6,246 

40 POKE S+15,30$ POKE S+14,30 

50 POKE S+4,131 

60 FOR F=250 TO 2 STEP-1.5 

70 POKE S+22,FsPOKE S+l,FsNEXT 

80 POKE S+4,130 

90 GET A$ sIF A$="" THEN 90 

100 GOTO 50 


srem 245 
srem 148 
srem 165 
srem 225 
srem 7 
srem 57 
srem 237 
srem 9 
srem 245 
srem 47 


k .J 

U 


The next program is simply a demonstration of the 
filtering capabilities of the 64. After you've entered and RUN 
the program, you can hear the differences as you change from 
one filter to another. It begins with the High Pass filter. Once 
you've heard what it can do, experiment and change some of 
the program's parameters. 

Program 10-10. Multiple Filters 

5 REM MULTI- FILTER DEMO srem 188 

10 GOSUB 200 srem 115 

18 POKE 53281,0sS=54272sX=0sF=35sRM=140 srem 148 
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20 POKE S, 18:POKE S+1,F:P0KE S+18,16 srem 230 

25 POKE S+l5,RM:POKE S+14,200sPOKE S+23,129:rem 99 
30 POKE S+4,32sPOKE S+5,15:POKE S+6,248 srem 106 

40 POKE S+21,8:POKE S+129,33sPOKE S+24,79 srem 214 

50 POKE S+4,21sPOKE S+22,X srem 164 

60 FOR F=150 TO 200 STEP 5sPOKE S+l,F:NEXT srem 15 
70 X=X+8sIF X>255 THEN X=0 srem 166 

80 GET A$ sIF A$="{F7}" THEN RM=RM+5:IF RM>200 THEN 
RM=2 s rem 99 

85 POKE S+15,RM srem 75 

90 IF A$="{F8}" THEN POKE S+24,0:END srem 25 

100 IF A$="{FI}" THEN POKE S+24,79 srem 105 

110 IF A$="{F3}" THEN POKE S+24,47 srem 102 

120 IF A$="{F5}" THEN POKE S+24,31 srem 97 

150 GOTO 50 srem 52 

200 PRINT"{CLR}{DOWN}"SPC(11)"{YEL}MULTI FILTER DE 
MO{WHT} srem 219 

210 PRINT"{2 DOWN}{2 SPACES}THIS DEMO PLAYS AN OSC 
ILLATING, RING srem 110 

220 PRINT"{DOWN}MODULATED SOUND AS THE FILTER CUTO 
FF IS{DOWN} srem 43 

230 PRINT"SWEPT FROM BOTTOM TO TOP. CONTROLS ARE: 

{2 DOWN} srem 76 

240 PRINT"{5 SPACES}{RVS}FI{OFF}{2 SPACESjHIGH PAS 
S FILTER{DOWN} srem 142 

250 PRINT"{5 SPACES}{RVS}F3{OFF}{2 SPACESjBAND PAS 
S FILTER{DOWN} srem 134 

260 PRINT"{5 SPACES}{RVS}F5{OFF}{2 SPACES}LOW PASS 
FILTER{DOWN} srem 102 

270 PRINT"{5 SPACES}{RVS}F7{OFF}{2 SPACES}CHANGE R 
ING MOD. FREQUENCY{DOWN} srem 16 

280 PRINT"{5 SPACES}{RVS}F8{OFF}{2 SPACES}END DEMO 

srem 103 

300 RETURN srem 115 


You now have the background needed to create sound 
effects on the Commodore 64. What do you do with them? 
Place them in a game program, your game program. 

Background Sound 

One possible use for sound in a game program is as a back¬ 
ground, which can be used as a mood producer. Sound can 
influence the way the game is played, even making it more 
enjoyable. Although the sounds you choose for your own 
game may be different than the following example, once 
you've looked through this section, you should be able to 
apply its techniques. 
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If you want a sound to be continuous throughout the 
game, the routine must be included as part of the main loop. If 
you wanted an arcade-like sound, for example, you might set 
up something like this: 

Program 10-11. Background Sound 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 S=54272sRM=20 

20 POKE S+l,15:POKE S+5,16sPOKE S+6,240 
30 POKE S+15,RM:POKE S+24,31 
40 POKE S+4,21 

50 RM=RM-1:IF RM=10 THEN RM=20 
60 GOTO 30 

This routine creates a ring modulated effect. 

You still have to add this to the main loop of a program. 

All you have to do is change the line numbers to fit your 
program, and eliminate the last line of the routine. By adding 
this sound routine to the main loop of the "Mission: Nova!" 
game program from Chapter 9, you can hear a constant back¬ 
ground sound as you play. 

Program 10-12. Main Loop Background Sound 

25 S=54272:MR=20 :rem 115 

127 REM srem 126 

128 REM BACKGROUND SOUND ROUTINE srem 14 

129 REM srem 128 

130 POKE S+l,15sPOKE S+5,16:POKE S+6,240 srem 146 

140 POKE S+15,MRsPOKE S+24,24sPOKE S+4,21 srem 252 

150 MR=MR-lsIF MR=10 THEN MR=20 srem 226 

The variables S and MR are established in the initialization 
section of the program, before the main loop begins. Line 100 
starts the main loop of the Mission: Nova! program. Lines 130- 
140 POKE in the values for the sound we want, while line 150 
varies the frequency of the note in voice 2. Each time the main 
loop executes, this sound is played. 

Try it. You'll notice that the movement slows down some¬ 
what. This is unavoidable when you place a sound in the main 
loop. It's a good idea to keep any background sound simple, 
for the more complicated it is, the more the main loop is 
slowed. 


:rem 109 
srem 96 
srem 30 
srem 212 
srem 177 
srem 2 
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Sound Subroutines 

You probably won't want every sound in the game to play all 
the time. Instead, you'll want to hear certain sounds when 
certain events occur on the screen. The sound you hear when a 
player-controlled character is lost, for instance, would fit in this 
category. Perhaps you want a sound when the joystick fire 
button is pressed, or a loud tone when a target is hit. In situa¬ 
tions like these, the sounds are called by subroutines. 

Unfortunately, when a program goes to a subroutine, it 
leaves the main loop and everything comes to a stop until the 
program returns. Sometimes this is noticeable, and you'll see 
the characters stop on the screen as the sound is executed. Yet 
many games use subroutines, simply because they are easier 
to incorporate into a program. In some games, the delay is not 
apparent. You must make the decision. Will the delay decrease 
the game's playability? Will the player enjoy it less? If you 
think not, try the subroutine technique. 

Let's add some sound subroutines to our Mission: Nova! 
program. We'll want sounds for each of the four things the 
starship bumps into. Not only will this make the game more 
entertaining, but it'll also provide the player with feedback as 
the game is played. The sounds will tell the player what is 
happening without him or her having to visually check each 
movement. 

To add these subroutines to Mission: Nova!, you first have 
to locate the lines which test for contact between screen charac¬ 
ters. This is done in lines 700-730. 

Line 700 tests to see if the starship is in contact with a 
small star. If it is, the score falls and the ship suffers damage. 
That's indicated by changing the ship's color. 

Line 710 checks if the ship is on the large space station. 
Remember that the ship is then renewed to full power. 

Line 720 tests to find out if the ship is on the small space 
station. Nothing is added or subtracted for this. 

Line 730 checks for the only remaining possibility, that the 
ship is in contact with a large, nova star. Points are added for 
this. 

Each sound should indicate whether the collision is posi¬ 
tive or negative. This is how you can provide feedback for the 
player through sound. 

All four lines must include a GOSUB command, so that 
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the 64 refers to the right subroutine. They could look like this. 


698 REM SMALL STAR srem 62 

699 REM srem 140 

700 IF W=28 THEN P=P-100:NC=NC+1sGOSUB 1500:RETURN 

srem 125 

707 HEM srem 130 

708 REM SPACE STATION srem 17 

709 REM srem 132 


710 IF W=27 THEN NC=CS:W=30sGOSUB 1550:RETURN 

srem 135 


717 REM 

718 REM USED SPACE STATION 

719 REM 

720 IF W=30 THEN GOSUB 1600 sRETURN 

727 REM 

728 REM NOVA1 

729 REM 


:rem 131 
srem 67 
srem 133 
srem 175 
srem 132 
srem 218 
srem 134 


730 P=P+(8*NH)*INT(QQ-Q):W=28sGOSUB 1650:RETURN 

srem 73 


Note that each GOSUB is placed before each RETURN command. 

Now the separate sound subroutines can be written and 
placed at the end of the program. 

Program 10-13. Small Star Collision 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1500 FOR 1=0 TO 24sPOKE S+I,0:NEXT srem 113 

1510 POKE S+24,15:POKE S+12,160:POKE S+13,252 

srem 137 

1520 POKE S+8,80SPOKE S+7,40sPOKE S+l1,129 

1530 FOR 1=0 TO 100sNEXT srem 19 

1540 POKE S+l1,128sRETURN srem 186 


This subroutine creates a small explosion sound to indi¬ 
cate that points have been lost and the starship has been 
damaged. Notice that line 1500 sets all the sound registers back 
to 0, so that previous POKEs to the memory locations don't 
disrupt the sound. This is good practice when using the 64. If 
you don't do this, at times the sound will come out different 
than you expected, or perhaps not be heard at all. 

Line 1540 includes a RETURN command so that the 
program shifts back to line 700 after the sound subroutine 
executes. 
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Program 10-14. Meeting the Large Space Station 

1550 FOR 1=0 TO 24:POKE S+I,0:NEXT:SP=10 :rem 241 
1560 POKE S,150sPOKE S+l.SP srem 247 

1570 POKE S+5, 0:POKE S+6,240:POKE S+24,15:P0KE S+4 
,17 srem 120 

1580 FOR SP=10 TO 250 STEP 2sPOKE S+l.SP:NEXT 

srem 254 

1590 FOR T=0 TO 100:NEXT:RETURN srem 62 

As the starship meets the large space station, this subrou¬ 
tine plays a quick sound which rises in pitch. The routine is 
almost identical to Program 10-3, Frequency Change. Because it 
rises in pitch, it sounds like something filling up, which is what 
the station does for the starship, returning it to its original power 
level. 

Program 10-15. Landing on the Small Space Station 

1600 FOR 1=0 TO 24:POKE S+I,0:NEXT :rem 114 

1610 POKE S,150:POKE S+1,200:POKE S+5,8:POKE S+6,2 
48 :rem 73 

1620 POKE S+24,15:POKE S+4,17 srem 29 

1630 FOR T=0 TO 100sNEXT srem 31 

1640 POKE S+4,16 sFOR T=0 TO 100 sNEXTsRETURN 

srem 232 

Since there is no effect when the starship touches the 
small station, this blip sound works well. It's identical to the 
One Note program used earlier in the chapter. This sound is 
useful, if only to tell the player that the small station does not 
give the starship an increase in power. 

Program 10-16. Meeting a Nova Star 

1650 FOR 1=0 TO 24sPOKE S+I,0sNEXTsSP=10 srem 242 
1660 POKE S,150sPOKE S+l.SP srem 248 

1670 POKE S+5,0sPOKE S+6,240sPOKE S+24,15sPOKE S+4 
,17 srem 121 

1680 FOR SP=10 TO 250 STEP 4sPOKE S+l,SPsNEXT 

srem 1 

1690 FOR T=0 TO 100sNEXTsRETURN srem 63 

This subroutine creates a sound almost identical to the 
one used when the starship lands on the large space station. 
The major difference is that in line 1680, the STEP 4 command 
is used. This simply shortens the sound to half of what it was 
in the large space station subroutine. Although the sound is 
again one of filling something up, making it only half as long is 
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appropriate, for the increase in points is not as positive as 
renewing the starship's power supply. 

Adding these subroutines to the game program does 
increase the player's enjoyment. Notice the difference in the 
game after you've added these routines. It should be more 
exciting, more entertaining, and easier to play with sound. 


Sound Effect Samples 


To get you started in creating your own sound effects on the 
64, here are six sample sound effects. Using the SID Register 
Table, you should be able to figure out what registers are used, 
and the values POKEd to those registers, for each of the 
effects. You can use these effects as they are now, if they'll fit 
into your game design, or you can change some of the sound 
parameters to create an entirely different sound. 


^J 
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Program 10-17. Train 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 




10 S=54272 

100 POKE S+24,15 sREM SET VOLUME HIGH 
110 POKE S+1,80 sREM HIGH FREQUENCY 
120 POKE S+5,80 sREM A/D 
130 POKE S+6,245 sREM S/R 
140 FORSP=10000TO25STEP-400 
150 Q=SQR(SP) 

160 GOSUB500 sREM DO AN ON/OFF 
180 GETA$ sIFA$=""THENNEXT 
190 Q=25sGOSUB500 
200 GETA$sIFA$=""THEN190 
210 END 

500 POKE S+4,129 sREM START NOISE 
510 FORI=lTO10+QsNEXT sREM DELAY 
520 POKE S+4,128 sREM BEGIN RELEASE 
530 FORI=1TO50+QsNEXT:RETURN 


srem 245 
srem 56 
srem 244 
srem 219 
srem 48 
srem 84 
srem 14 
srem 147 
srem 251 
srem 222 
srem 79 
srem 106 
srem 104 
srem 186 
srem 195 
srem 77 
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Program 10-18. Whistling Bomb 




5 S=54272 

10 FORI=0TO22SPOKE S+I,0sNEXT 

100 POKE S+24,15 sREM SET VOLUME HIGH 

110 POKE S+5,80 sREM A/D 

115 POKE S+12,160 sREM A/D 

120 POKE S+6,255 sREM S/R 


srem 201 
srem 10 
s rem 56 
srem 218 
srem 60 
srem 48 


J 
^J 


V .J 
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125 

POKE 

S+13,252 :REM 

S/R 

130 

POKE 

S+4,17 


140 

POKE 

S+4,16 


150 

FORI= 

'255TO50STEP-1 

:POKE54273 

155 

FORJ= 

=1T05:NEXT:NEXT 

160 

POKE 

S+l,10 


170 

POKE 

S+8,1 


180 

POKE 

S+5,112:POKE 

S+6,252 

190 

POKE 

S+4,129:POKE 

S+11,129 

200 

FORI= 

=1TO200:NEXT 


210 

POKE 

S+4,128:POKE 

S+11,128 


Program 10-19. Klaxon 

5 S=54272 

10 FORI=0TO22:POKE S+I,0:NEXT 

100 POKE S+24,15 :REM SET VOLUME HIGH 

110 POKE S+5,80 sREM A/D 

120 POKE S+6,243 : REM S/R 

130 POKE S+3,4 

140 POKE S+4,65 

150 FORI=20TO140STEP5:POKE S+1,I:NEXT 
155 POKE S+4,64:FORI=1TO50:NEXT 
170 GETA$:IFA$=""THEN140 
180 POKE S+4,64 

Program 10-20. Landing Saucer 

5 S=54272 

10 FORI=0TO22:P0KE S+I,0:NEXT 

100 POKE S+24,15 :REM SET VOLUME HIGH 

110 POKE S+5,80 :REM A/D 

120 POKE S+6,243 :REM S/R 

130 POKE S+3,7 

140 FORJ=50TO17STEP-1sPOKE S+4,65 
150 POKE S+l,J:FORI=1TO200:NEXT 
155 POKE S+4,64:FORI=1TO50:NEXT 
170 GETA$:IFA$=""THENNEXT 

Program 10-21. Gong 

5 S=54272 

10 FORI=0TO22;POKE S+I,0:NEXT 

100 POKE S+24,143 :REM SET VOLUME HIGH 

110 POKE S+5,16 :REM A/D 

115 POKE S+19,16 sREM A/D 

120 POKE S+6,252 :REM S/R 

125 POKE S+20,249 sREM S/R 

140 POKE S+4,21:POKE S+18,17 




:rem 96 
: rem 9 
:rem 9 
:rem 36 
:rem 4 
:rem 2 
sreni 218 
:rem 29 
:rem 84 
:rem 222 
:rem 75 


:rem 201 
:rem 10 
:rem 56 
:rem 218 
:rem 45 
:rem 212 
:rem 13 
:rem 20 
:rem 107 
:rem 80 
:rem 16 


:rem 201 
:rem 10 
:rem 56 
:rem 218 
:rem 45 
:rem 215 
:rem 191 
:rem 112 
:rem 107 
:rem 250 


:rem 201 
:rem 10 
:rem 106 
:rem 217 
:rem 19 
:rem 45 
:rem 100 
:rem 233 
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150 POKE S+l, 68:POKE S+15,42:FORI=1TO200:NEXT 

:rem 115 

155 POKE S+4,20:POKE S+18,16:FORI=1TO400sNEXT 

:rem 117 

170 GETA$:IFA$= ,,,, THEN140 srem 80 


O 
O 
^J 


Program 10-22. Siren 

5 S=54272 

10 FORI=0TO22SPOKE S+1,0sNEXT 

100 POKE S+24,143 :REM SET VOLUME 

110 POKE S+5,16 sREM A/D 

115 POKE S+19,16 sREM A/D 

120 POKE S+6,.252 :REM S/R 

125 POKE S+20,249 ;REM S/R 

140 POKE S+4,21:P0KES+18,17 

150 POKE S+l,2:POKE S+15,34:F0RI= 

151 POKE S+4,20:POKE S+18,16:FORI 

152 POKE S+4,21sPOKE S+18,17 

153 POKE S+l,2 sPOKE S+15,30sF0RI= 

155 POKE S+4,20sPOKE S+18,16sFORI 
160 GETA$ sIFA$=""THEN140 


srem 201 
srem 10 
HIGH srem 106 
srem 217 
srem 19 
srem 45 
srem 100 
srem 233 
1TO200sNEXT 

srem 56 
=1TO300sNEXT 

srem 112 
srem 236 
1TO200sNEXT 

srem 55 
=1TO300sNEXT 

srem 116 
srem 79 


All but the Whistling Bomb sound effect can be stopped by 
pressing any key. 

Make Use of Sound 

As you've seen, sound can make a program more complex. It 
also complicates your decision-making process as you deter¬ 
mine what kind of game you want to create and what sound 
effects you want to use. Yet it's worth the time and effort to 
include sound, simply for the impact it has on a game. A game 
without sound is just not a game to most players. Something 
vital is missing. 
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Introductions; 
Instructions; and 
Farewells 


Introductions, instructions, and farewells add an element that 
every player appreciates, another dimension to the game world 
you've created. Just like sound effects or custom characters, 
they are not absolutely necessary, but without them your game 
will seem pale and one-dimensional. Introductions and fare¬ 
wells make the game more interesting, entertaining a player 
while a screen display is set up, or providing incentive to play 
again for a higher score at game's end. Without instructions, a 
player could be confused or frustrated at the outset while 
trying to discover cursor directions, scoring, procedures, or 
the goals of the game. 

Even though introductions and instructions appear at the 
opening of a game, this part of game design is best approached 
after your program has been written. Through the constant 
changing and revising of your program, it is probably not until 
this point that you know exactly how your game will appear. 

Of course, there are exceptions, for you may have your design 
well-outlined before you begin to program. 

Introductions 

Introductions can take many forms and shapes. Perhaps you 
want another sound effect, or a short piece of music, to enter¬ 
tain the players while they wait for the game screen to set up. 

A brief description of the game situation can be inserted. This 
can heighten the player's involvement in the world you've 
created. At the very least, you'll want to display the title before 
the game begins. 

Since you've already written your program, you probably 
won't be able to place the introduction at the beginning 
without renumbering the entire program. A simple way to 
solve this problem is to place the introduction in a subroutine 
that is called by the first line of the program. In the sample 
game from Chapter 9, "Mission: Nova!," it would look like this: 

5 GOSUB 1700 :rem 125 
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The program would then move to the subroutine and execute 
the introduction, returning to the opening of the program. The 
following example subroutine can be inserted into the Mission: 
Nova! program to serve as an introduction. 

Program 11-1. Introduction 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1700 PRINT"{CLR}”:POKE 53281,15 srem 42 

1705 PRINT ”{2 DOWN}{16 RIGHT}{BLK}STARMOVE" 

srem 145 

1710 PRINT "{2 DOWN}{2 RIGHT}{BLU}MANEUVER YOUR ST 
AR SHIP ACROSS THE" srem 225 

1720 PRINT "{2 RIGHT}GALAXY." srem 201 

1730 PRINT "{2 DOWN}{2 RIGHTjAVOID THE STARS AND R 
EFUEL AT NOVAS." srem 185 

1740 PRINT ”C2 DOWN}{2 RIGHTjLAND AT THE SPACE STA 

TION FOR POWER." srem 190 

1750 PRINT "{6 DOWN}{2 RIGHTjHIT ANY KEY TO CONTIN 
UE" srem 252 

1755 GET A$sIF A$="" THEN 1755 srem 199 

As the program runs, notice that the screen changes color. 
This is a nice effect that is done simply by POKEing a different 
value into location 53281. The only thing to be careful of, 
however is that the screen will still display your words. If the 
screen background color is the same as the character color, then 
the words will seem invisible. 

It is also simple to change the character color of the title, as 
was done in this sample subroutine in line 1705. Again, it may 
be difficult to see the different color unless you've chosen one 
considerably different from the background. Experimenting 
with several variations takes only a little time and cannot harm 
your program. To turn the character color back to the original, 
simply insert the proper keystrokes within the n ext P RINT 
statement. In line 1710 this was done by hitting CTRL and 
BLUE at the same time. 

It's a good idea to double-space between each line, or 
between your short paragraphs, as was done in the sample 
subroutine. This makes it easier to read. Notice, too, that the 
lines are justified on the left. This can be done several ways. 
First of all, you can just print the lines from the leftmost 
column. Sometimes, if you have short lines, you will want to 
indent. You can either use the cursor commands within the 
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quotation marks or you can use the TAB command to indent 
every line the same distance. The statement: 

PRINT TAB(1)"MANEUVER YOUR STAR" 

would print the line one column from the left, in the second 
column. You could replace line 1710 in the sample subroutine 
with this line, for instance. 

Although you have only one screen so far, often you'll use 
a lengthy introduction, with several screens of print. Instead of 
scrolling the introduction or printing it one line at a time at a 
slow speed, it may be easier to display each screen of print 
separately. At the end of each screen, as in Program 11-1, you 
could add the line: 

PRINT "HIT ANY KEY TO CONTINUE" 
followed by: 

GET A$:IF A$ = " "THEN xxx 

where xxx is the line number of the GET A$ command. 

This holds the screen until the player presses a key, then it 
displays the next screen. At the end of the PRINT statements 
for the last screen, be sure to include a RETURN command. 

Our sample subroutine takes up only one screen so far. If 
that's all you're using, to return to the game program you need 
only add a line such as this: 

1750 FOR T1=0 TO 5000sNEXT:RETURN 
The delay gives the player enough time to read the introduc¬ 
tion. If your instruction is longer or shorter, you can alter the 
delay loop accordingly. 

Introduction sound. Adding sound is quite easy. Before 
the program RETURNS, insert the POKE statements for what¬ 
ever effect you want. The sound then plays before the game 
begins and while the introduction is on the screen. 

Here's an example of a sound effect you can add to 
Mission: Nova! 

Program 11-2. Introduction Sound 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E 

1900 FOR 1=0 TO 24:POKE S+I,0sNEXTsF=0 srem 98 

1915 POKE S+14,250:POKE S+18,17 srem 137 
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1920 POKE S, 1:POKE S+4,16:POKE S,15:P0KE S+6,16:PO 
KE S+24,143 sreni 104 

1925 POKE S+4,21:POKE S+18,17:POKE S+15,F :rem 228 

1930 FOR X=200 TO 100 STEP-5:POKE S+1,X:NEXT 

:rem 194 

1935 FOR X=100 TO 0 STEP-l:POKE S+1,X:NEXT :rem 97 
1940 POKE S+4,20:POKE S+18,16 :rem 32 

1950 FOR T=0 TO 100:NEXT:F=F+5:IF F=150 THEN F=1 

:rem 76 

1960 GET A$:IF A$="" THEN 1525 srem 192 

1970 RETURN :rem 177 

This is a version of the raygun sound in Chapter 10. All you 
need to do is add this sound subroutine, along with this line at 
the end of the introduction routine: 

1755 GOSUB 1900 srem 28 

Now the sound routine will play until a key is pressed, which 
will then send it back to the program. 

Instructions 

Before the game starts, the player must know how to play the 
game. On some arcade games, this is done with printed docu¬ 
mentation on the game machine. Since you can't print instruc¬ 
tions on every player's Commodore 64, the method you'll want 
to use is documentation within the game program. This is 
where the player finds out such things as: 

• How to start the game 

• How to move the player-controlled characters or sprites 

• The game scenario, or story line 

• How points are awarded or subtracted 

• How extra turns of player characters are earned 

• Explanations of the different game levels 

• Details of any special game features 

At the very least, you'll want to tell the player how to 
move user-controlled characters. If it's a joystick-controlled 
game, a note that a joystick is needed would be sufficient. If 
the keyboard is used to control the character, more explanation 
is necessary. 

Program 11-3. Instructions 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1760 PRINT “{CLR}{3 DOWN}!2 RIGHT}HIT F5 KEY FOR 1 
UP 1 " :rem 194 


u 

u 

u 

w 

k J 

k J 
kj 
kJ 
kk 
kJ 
k^ 
kJ 
kJ 

kk 

kJ 

kJ 

kJ 

k^ 

k^ 

w 

kk 
kk 
k^ 
kJ 

O 


286 



Introductions, Instructions, and Farewells 


r^ 
r^ 

n 

n 

n 

o 

n 

n 

n 

n 

n 

n 

n 

n 

o 

n 

r\ 

n 

n 

n 


1770 

PRINT "{2 

DOWN}{2 

RIGHT}HIT 

F7 KEY FOR ’DOWN 1 


II 



srem 

180 

1780 

PRINT ”{2 

DOWN}{2 

RIGHT}HIT 

COMMODORE KEY 

FOR 


1 LEFT’" 



srem 

208 

1790 

PRINT "{2 

DOWN}{2 

RIGHT}HIT 

SHIFT KEY FOR 

* RI 


GHT ’ " 



srem 

253 

1800 

PRINT "{6 

DOWN}{2 

RIGHT}HIT 

ANY KEY TO CONTIN 


UE" 



srem 

248 

1820 

GET A$ tIF 

A$="" THEN 1820 

s rem 

185 


If the keys are not next to each other, this may be the best 
way to tell the player which keys move the character each 
direction. Note that the GET A$ statement is used again to 
hold the screen until the player is ready to continue. 

Your game may use keys that are placed next to each other 
on the keyboard. For example, your game may use a diamond¬ 
shaped pattern for character control. If that's the case, then you 
may want to display something like Figure 11-1 on the screen, 
showing the corresponding directions and making it easier for 
the player to understand. 

Figure 11-1. Keyboard Display 

@ F5 


-» = 


Commodore 


-> Shift 


* 

/ 


F7 


The TAB command makes it easy to set up a screen like 
this by positioning the lines of explanation in the right place. 

Scoring is another item you may want to include in the 
instructions. Every player wants to know how points are 
scored, by what criteria, and toward what goal. These instruc¬ 
tions do not have to be lengthy, as the following routine for 
Mission: Nova! shows: 

Program 11-4. More Instructions 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1830 PRINT "{CLR}{2 DOWN}{2 RIGHT}SCORE POINTS BY 
{SPACE}REFUELING AT NOVAS." :rem 107 
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1840 

1850 

1860 

1870 

1880 

1890 

1895 

1896 

1897 


PRINT "{2 DOWN}{2 RIGHTjPOINTS DEDUCTED FOR C 
RASHING INTO" :rem 137 
PRINT "{2 RIGHT}STARS AND TAKING TOO MUCH TIM 


E. " 


! rem 115 


PRINT "{2 DOWN}{2 RIGHT}YOU CAN CRASH INTO El 
GHT STARS" ;rem 116 
PRINT "[2 RIGHT}BEFORE LANDING ON THE SPACE S 


TATION." 


irem 197 


PRINT "{2 DOWN}{2 RIGHT}THE GAME ENDS WHEN YO 
UR SHIP'S POWER" :rem 223 
PRINT "{2 RIGHT}IS GONE." srem 208 
PRINT ?"{6 DOWN}{2 RIGHT}HIT KEY TO START." 


srem 117 

GET A$:IF A$="" THEN GOTO 1896 srem 12 

RETURN srem 185 


If your game is quite complex, more than one screenful of 
print may have to be seen by the player. Again the GET A$ 
statement lets the player read at his or her own pace, then 
move on. Note that at the end of this routine, in line 1897, the 
RETURN statement finally appears, sending the program to 
begin the game's screen setup. 


Setting Difficulty 

At times, you'll want to allow the player to set the level of diffi¬ 
culty in the game. If your game lends itself to this, a player can 
begin at the easiest level and progress to the more difficult. A 
game such as Tempest, which lets the player choose the starting 
level, is a good example. It will seem that there are actually 
several games in one if the levels are considerably different. An 
ideal place to do this is in the instructions, before the game 
begins. The INPUT or INPUT#1 commands can be used. 

Again, a subroutine called at the program's outset is one 
way to do this. The game "Spark" from Chapter 9 is one in 
which levels could be set using the statement: 

5 GOSUB 800 srem 77 

You must also eliminate the P =300 expression from line 50 of 
the original version of the Spark program. If you don't, the 
following subroutine will not work properly. 
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Line Function 

800 Clear the screen and POKE in a screen color change. 
810-840 Print the instructions for setting the different levels of 
play. Note the {BLU } keystroke in line 810. This sets 
the character color back to blue. The program will 


O 
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alter the character color after it has run once if this is 
omitted. 

860 Used to create the INPUT#1 command in the next 
line so that a ? prompt will not appear on the screen. 

870 The INPUT#1 command delays the program until 
the player provides a response. This command is 
very useful when asking for information from the 
player. The CLOSE #1,0 statement completes the 
instruction begun in line 860. 

880-900 Test for the number pressed by the player, and then 
set the value of P accordingly. P is the time remaining 
before the game ends. In other words, the most diffi¬ 
cult level begins with less time for the player to 
complete the game. Notice that each line has a 
RETURN statement at its end. The program then 
moves back to line 5, and the game program begins 
setting up its screen. 
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Program 11-5. Spark Levels 


Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


800 

810 

815 

820 

830 

840 

860 

870 

880 

890 

900 


PRINT ”{CLR}":POKE 53281,7 srem 203 

PRINT "{3 DOWN}{2 RIGHT}{BLU}CHOOSE LEVEL OF P 
LAY BY HITTING KEY" srem 149 

PRINT "{2 RIGHTjAND PRESSING {RVS}RETURN{OFF}" 

srem 107 

PRINT "{2 DOWN}{2 RIGHT}1"TAB(8)"EASIEST" 

srem 170 

PRINT "{2 DOWN}{2 RIGHT}2"TAB(8)"HARDER" 

srem 84 


PRINT "{2 DOWN}{2 RIGHT}3"TAB(8)"DIFFICULT"sPR 
INTSPRINTsPRINT srem 143 
OPEN 1,0 srem 93 
INPUT#l,A$sCLOSE 1,0 srem 81 
IF A$="l" THEN P=300sRETURN srem 175 
IF A$="2" THEN P=200sRETURN srem 176 
IF A$="3" THEN P=100sRETURN srem 168 


As you program more involved games, you'll find uses for 
this method of setting levels of difficulty. Even if you are now 
designing a game that does not lend itself to this, keep it in 
mind for later. 
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Farewells 

The final addition to your game should be a farewell, or end 
routine. As with the introductions and instructions, this can be 
as elaborate or simple as you want. Some farewells are strictly 
entertaining, nudging the player back into the game, 
persuading the player to try it again, perhaps just to see the 
end routine. Other farewells are more informative, giving the 
final score, showing a high score, ranking the player, or asking 
if another game is wanted. Just as with the introductions and 
instructions, you can insert this as a subroutine. 

A simple farewell, which records the final score, prints a 
short message, and allows the player to begin a new game, 
would take only a few lines in a program. In the example game 
Spark, the score was assigned the variable P in the program. If 
the player won, the user-controlled character exited the maze, 
and the game was over. Running out of time caused P to equal 
0, and so ended the game. There were only two possible ways 
to end. Placing a GOTO command at both program lines could 
be done this way: 

170 IF CH<0 THEN 610 :rem 228 

and 

330 IF P=0 THEN 600 :rem 167 

When the character exits the maze, then, the program 
shifts to line 610. If the player loses the game by running out of 
time, the program goes to line 600. At that point, the following 
routine could be used: 

Line Function 

600 Print the message that the player ran out of time and 
scored 0 points. The first PRINT command is used to 
force the message to print below the maze. Program 
then shifts to line 620. 

610 If P>0, then the player has won and this message is 

printed on the screen, along with the final score. 

620 Drop four lines to display the message allowing the 
player to try again. 

625 This POKE is necessary to clear the keyboard buffer 
of any characters typed in during the preceding 
game. If this is omitted, the next line will execute 
immediately, for the 64 will read the buffer and 
assume a key was pressed for line 630. 

630 GET A$ simply waits for a key to be pressed by the 
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player before continuing. 

640 Return the program to the beginning. Notice that the 
player is returned to the level-setting routine, so that 
the level of difficulty can be changed. 
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Program 11-6. Spark End 


Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


600 

610 


620 

625 

630 

640 


PRINTsPRINT "{CLR}{3 DOWN}{2 RIGHTjTOO LATEJ 
{2 RIGHT}SCORE IS 0":GOTO 620 srera 244 

PRINTsIF P>0 THEN PRINT "{CLR}{3 DOWN} 

{2 RIGHT}YOU MADE IT1{2 RIGHT}SCORE IS"P 


PRINT "{4 DOWN}{2 RIGHTjTO PLAY AGAIN, 
KEY" 

POKE 198,0 

GET A$:IF A$="" THEN 630 
GOTO 5 


:rem 31 
HIT ANY 
:rem 2 
:rem 202 
:rem 85 
:rem 8 


A more complex end routine could include sound, as well 
as display a final score and ask the player whether another 
game is wanted. Inserting sound into an end routine can be 
difficult at times, depending on how your game program is 
organized and where you want the sound to play. One way to 
create sound in an end routine is by using another subroutine 
called when the game is over. The sample game Mission: Nova! 
could use this technique, and the program could appear as: 
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Line Function 

905-979 The landing saucer sound effect is created. This is 
identical to the effect included in Chapter 10. 

980 Print final score and ask the player whether another 
game is to be played. 

985 The delay allows the player time to decide if he or she 
wants to play another game. If so, the PEEK 
command reads the keyboard and sends the program 
to the appropriate lines. If another game is not 
wanted, then the program will end in line 990 after 
the delay. 

Program 11-7. Mission: Nova! End 

905 S=54272 :rem 50 

910 FORI=0TO22:POKE S+I,0:NEXT srem 67 

920 POKE S+24,15 sREM SET VOLUME HIGH srem 66 


n 
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930 

940 

950 

960 

970 

975 

979 

980 


985 

990 


POKE S+5,80 :REM A/D 
POKE S+6,243 :REM S/R 
POKE S+3,7 

FORJ=50TO17STEP-1sPOKE S+4,65 
POKE S+l,J:FORI=1TO200:NEXT 
POKE S+4,64:FORI=1TO50:NEXT 
NEXT 


srem 228 
:rem 55 
srem 225 
srem 201 
srem 122 
srem 117 
srem 232 


PRINT "{CLR}{2 DOWN}{2 RIGHT}"P" POINTS"SPRINT 
SPRINT"{2 DOWN}{2 RIGHT}PRESS ANY KEY TO PLAY 
{SPACE}AGAIN" srem 151 

FOR 1=0 TO 3000sA=PEEK(197)sIF A<>64 THEN GOSU 
B 450sGOTO 280 srem 187 

NEXT I SEND srem 59 


G 
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Design Notes 

Programming introductions, instructions, and farewells can be 
challenging and exciting, for each addition to your game will 
make it that much more professional in appearance, as well as 
more playable and entertaining. Although we've considered a 
number of different concepts to include in your game introduc¬ 
tions, instructions, and farewells, there are a few more sugges¬ 
tions for your use. 

Be personal. If the player is asked to INPUT his or her 
name and then sees it printed in the instructions, or even 
beside the user-controlled character, the player will be drawn 
deeper into the game's world. Within the farewell, the player's 
name could also be printed alongside the final score. These 
human touches add to any game, as you've probably noticed 
when you've played video arcade games. 

Make use of the color abilities of the 64. Changing screen 
colors certainly adds to the game, but reversed or colored char¬ 
acters will add even more, especially in the introduction and 
instructions. With memory available, you can alter the screen 
and character colors with every new screen display. 

Urge the player to play another game by including a 
friendly ending. It doesn't have to be something cute, just 
enough to make another game worth the time. Proclaim the 
player's victory, hand out promotions or rankings. Your imagi¬ 
nation as the game designer can come into play here. Crea¬ 
tivity is what makes one game stand above all others. 

Your game program is almost completed. You've gone from 
the idea to writing the end routine. There are a few more 
things to consider, however, in the next chapters. 
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The Shape of the 
Game 


We've gone through most of the techniques you'll need to 
create your own games. Now all you really need to do is hack 
through the actual programming. The word "hack" is pretty 
accurate for most of our programming. No matter how logical 
you are, chances are pretty good that the computer is even 
more logical, and you'll write many a routine that should 
work—but doesn't. At least I certainly program that way 
sometimes, like a clumsy woodcutter taking one hack after 
another until finally he splits the log. 

And it works. Eventually, even the most stubborn 
programming problem will yield to your constant work. 

There are ways you can make things easier for yourself, 
and in the meantime make your programs run as smoothly 
and quickly as possible. However, the programming tech¬ 
niques in this chapter are not "rules"—they're just advice. 
Good advice, I think, that has helped me in my programming, 
but remember: any game that plays well is a good game, even 
if the programming isn't pretty. So don't be concerned if you 
fudge a bit here and there. If it works, it's correct. 

Program Structure 

In most of the programs in this book. I've tried to structure my 
code with three purposes in mind: 

1. Make it easy to understand. 

2. Make it run fast. 

3. Use up the least possible memory. 

Ease of Understanding 

Why should you make your programs easy to follow? After all, 
you're writing a game for yourself, not example programs in a 
book. Nobody's ever going to see your programming, just the 
results. 

There's one exception. You. 

You will look at your program again and again. Sometimes 
there'll be days, weeks, or months between programming 
sessions. You'll look at your own program then and wonder 
what in the world is going on. You'll forget where the value of 
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obscure variables was set. You'll forget why line 55 had to come 
before GOSUB 590. You'll forget that there are three different 
ways to get into the routine at 400. 

That's inevitable. It happens to everybody. And you can't 
prevent it entirely. What you can do, though, is follow several 
simple programming rules. 

Establish patterns and habits. Start routines on even 
hundred lines—100, 200, 300, 400, and so on. That way you'll 
be able to look at an entire routine just by typing LIST 300-399. 
Sometimes I bend this rule by starting a very short routine at 
an even fifty—450 or 550. And in this book I have sometimes 
put at line 990 a single-line loop that is used many, many times 
throughout a program. For instance, a loop that reads the 
keyboard and waits for the player to press a key. 

The important thing is to have habits. For example, in this 
book you always know that if I have a GOSUB or GOTO 100, 
200, 300, 400, and so on, the program is going to a main 
routine. You can quickly scan through each routine, see what 
each one does, and then know instantly which routine is being 
called at each GOSUB and GOTO. You know that if a GOSUB 
or GOTO ends in 50, it's a small routine. A GOSUB or GOTO a 
line ending in 90 is a one-line routine called many, many 
times. 

Of course, you may prefer to develop different program¬ 
ming customs. But whatever habit you follow, the more consis¬ 
tent you are, the more easily you'll be able to follow your own 
programs. 

Put similar things together. If all your collision-handling 
routines are located together, you won't have to spend half an 
hour poring over your program to find out where a particular 
collision is taken care of. You'll know that it's between 700 and 
799. If all your DIM statements are in the first line of the 
program, you'll never have to hunt around to find out why 
you're getting a BAD SUBSCRIPT error. 

This principle extends even to tiny matters. If you're 
creating variables to control ten different onscreen figures, 
why not give their location in screen memory and in color 
memory and their color value and character code the same vari¬ 
able name? If you use L for the player-figure's location, then 
use LI, L2, L3, L4, and so on for the computer-controlled 
figures. An even better practice might be to use arrays: L(n) is 
the address of the screen location of each of the ten figures; 
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CL(n) is their address in color memory; FG(n) is the character 
to be POKEd to the screen; and C(n) is the color to be POKEd 
into color memory. 

You can even use M(n) to hold the number that should be 
added to L(n) for each computer-controlled character's move¬ 
ment. The variable S(n) can hold each figure's new starting 
address. And E(n) can hold the ending address. 

Think how easily and economically you can program all 
the movements then. Line 300 starts the loop of our example 
and erases each figure at the old location in screen and color 
memory. 

300 FOR 1=0 TO 9:POKE L(l),32:POKE CL(l),0C 
Line 310 changes the locations: 

310 L(I)=L(I)+M(I):CL(I)=CL(I)+M(I) 

Line 320 checks for collisions with the player-figure and checks 
to see if the figure has reached the end of its journey: 

320 ON-(PEEK(L(l))=FG)-2*(L(I)=E{I))GOSUB 400, 498 

Line 330 actually carries out the movement by POKEing the 
figures onto the screen in the new locations: 

330 POKE L(I),FG(I):POKE CL(I),C(I)sNEXT 

Vital parts of this are the subroutines at 400 and 490. Since we 
haven't created an entire program here, I won't try to create 
the collision subroutine, but the routine at 400 would need to 
change the score, decide whether the player-figure should win 
or lose the encounter, and assign new addresses, if necessary, 
to both the player-figure and the computer-controlled figure. 

We can be more specific with the miniroutine at 490. 
Remember that the program reaches this line only if the 
figure's screen location matches its ending location. Therefore, 
all we need is: 

490 CL(I)=CL(i)-(L(l)—S(I)):L(l)=S(l)sRETURN 

And that's it. By giving all your onscreen figures the same 
name, with subscripts, you can assign all their values in loops 
using DATA statements, and you can handle their movements 
and their collisions in a single routine. You have saved 
memory, you have probably saved running time, but above all 
you have kept the routine simple and easy to follow. 
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Label your work. Just because you're using a computer 
doesn't mean you can't write things down on paper. It's a good 
idea to keep a list of what each variable is used for in each 
program you work on. That way you won't accidentally use a 
variable you've already got doing something else somewhere 
else in the program. 

You can write down where each major subroutine is. You 
can write down key line numbers or areas where you plan to 
put subroutines. 

Most important of all, however, is simply to label your 
tapes and disks, both externally and internally. There's nothing 
more frustrating than working for hours on a program only to 
realize that the version you're working on is not the most 
recent one, that all of the improvements from your last 
programming session are saved somewhere else. I've made it a 
habit to put the date at the beginning of my program. Some 
people put the date in REM statements, so you'll see it when 
you LIST the program. I put it right in a PRINT statement, so 
the date of this version will be flashed on the screen. That way 
I can keep track of which version of my game I am working on. 

Programming for Speed 

With game playing, it is not real speed that is important, but 
the illusion of speed. The game has to feel fast. A game with 
figures that only inch along the screen can feel fast to the 
player as long as his own player-figure responds quickly and 
moves fairly fast. This means that your program, to feel fast, 
should check for player input as often as possible, and should 
have as few things as possible happen between player-figure 
movements. 

The main loop. The key is to keep the main loop as tight 
as possible. The fewer things the program has to do every time 
it goes through the loop, the better. The main loop is really 
there just to perform tests, to see what should happen next. 

You keep the main loop tight by testing for minimal condi¬ 
tions and then jumping to subroutines to check the details. 
Many things can be kept out of the main loop entirely. For 
instance, collisions should almost never be checked in the 
main loop. Why? Because collisions can happen only when 
something moves into the same space as something else. 
Therefore, why check for collisions unless something has 
moved? Collision-checking always belongs in movement 
loops. 


^J 

CJ 

CJ 

CJ 

w 

w 

L J 

G 

c J 

G 


298 



The Shape of the Game 


i 

D 

r^ 
n 
o 
n 

n 

n 

n 

n 

r*\ 

n 

o 

n 

n 

n 

n 

n 

n 

n 

n 

n 

o 


Main loops generally need to do the following: 

• Check the timer for all timed events (a timer countdown, 
regular screen changes, etc.). 

• Check the keyboard or joystick for the player's 
instructions. 

• Control the computer-controlled figures' actions. 

• Control any continuing background sound. 

Be selective. That's a short list, but it can still be far too 
long. To keep up the illusion of speed, you need to be selec¬ 
tive—not all those things need to happen every time through 
the loop. 

For instance, suppose you wanted to control the ten 
computer-figures whose movement we just programmed. 
Instead of putting them in a FOR-NEXT loop and moving all 
ten of them every time, why not access 300 as a subroutine 
with a random value? If the main loop contained this line, 
you'd get a very interesting effect: 

120 I=INT(RND(9)*10)sGOSUB 300 

With this line as the only access to the computer-controlled 
figures, only one computer-figure will move each time the 
player-figure has a chance to move. There won't be such a long 
delay between the player-figure's movements. Even though 
each computer-controlled figure moves in the same pattern 
every time, you never know which one will move next. The 
computer-figures will actually move much more slowly, but 
because the player-figure will move faster and the computer- 
figures will be more random, the game will feel much faster 
and more exciting. 

Use a single timer. If you try to control lots of events using 
a separate timer, you'll fill up your main loop with statements 
like A=A+1:IF AMO THEN A = 0:GOSUB 500. Every arith¬ 
metic operation slows down your program, and so does every 
IF statement. Why not share a single timer? 

Let's say you have three events to control. Subroutines 500 
and 700 should happen only rarely; subroutine 800 must 
happen often; and subroutine 900 has to happen every other 
time through the main loop. That timer variable A can do triple 
duty: 

120 A=A+1:ON A GOSUB 900,700,900,800,900,500,900,8 

00:IF A=8 THEN A=0 
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There it is—one mathematical operation and one GOSUB each 
time through the loop. Subroutines 700 and 500 will be 
executed only once in every eight passes through the main 
loop. Subroutine 800 will be executed twice as often, and 
subroutine 900 will be executed every second pass. Yet a single 
handler accesses them all. 

This kind of timer routine, however, is not regular. 
Anything that stops the main loop from executing will also 
delay those subroutines. A missile firing or a collision that 
stops the action will also keep line 120 from executing, so it 
will be longer before the next action occurs. Regular move¬ 
ments (like the scrolling of the screen in our Mission: Nova! 
game) and countdowns that should reflect realtime must be 
controlled using the TI$ function. Remember, though, not to 
use equal signs with TI$. For instance, this line could be a 
disaster: 

IF VAL(TI$) = 7 THEN TI$ = "000000" :GOSUB 500 

What's wrong with it? Well, TI$ will have a value of 7 
for only a second. What if this line executes once when TI$ = 6, 
but then the program happens to carry out a time-consuming 
collision routine before the next pass through the main loop? 
TI$ will have a value of 9 or 10 by then, so this line will never 
execute again. Instead, you'll want to use this statement: 

IF VAL(TI$)>6 THEN TI$ = "000000":GOSUB 500 

Now, whether TI$ is 7 or 70, this line will snag the program 
and send it out to 500 at nearly the right time. 

Stop the action. Sometimes you can stop the action 
completely to carry out some task, and the player won't feel 
that the game has been slowed down at all. For instance, when 
the player-figure collides with something, you can stop for an 
elaborate collision routine, with animation and sounds, and 
the player won't feel like it slows down the game—it will 
actually make it more exciting, and it will feel faster. Likewise, 
when the player fires a missile, or when an opposing figure 
first comes on the screen, you can take some time with it. 

Stopping the action is fine; what you must avoid is a long 
time-lag between the player giving an instruction and the 
player-figure carrying it out. If the player is getting a quick 
response during file action phases of the game, you can take as 
long as you like in the other sections. 
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Memory and Video Bank Selection 

Memory's not something you often worry about with the 
Commodore 64, but it's nice to know it's there. Unlike other, 
smaller computers, the 64 has enough memory to satisfy even 
the most advanced game programmer. You'll seldom find that 
you're running out of memory space when you create your 
own game programs. 

However, the 64 can give you problems when you're 
designing that especially long game. Although the computer 
has 64K of RAM (Random Access Memory), the VIC-II chip 
can read only one bank of 16K at a time. This is an important 
concept, for in order to operate properly, the VIC-II chip must 
be able to find a number of different things in the block it is 
reading. To perform all its assigned functions, the VIC-II chip 
must be able to find: 

• A character set to use. This is normally provided by the 
ROM character generator. 

• An area to use as screen memory. Normally, this is at 
locations 1024-2023. 

• An area for color memory. Fortunately, this never 
changes. It is always located at addresses 55296-56295. 

• If sprites are used, the sprite DATA must be in this same 
16K bank. 

• When custom characters are used, the DATA used to 
create them must also be located in this bank. 

The VIC-II chip can access only one 16K bank at a time. 
When the computer is first turned on, the bank located at 
addresses 0 to 16383 is accessed. For an explanation of the 
other banks, and their locations, refer to Chapter 1. 

Why would you want to switch so that the VIC-II chip 
could read another bank? If your program was quite long, over 
14K, or if you are designing a custom character set and have a 
lengthy game, you'll want to use bank switching. This was 
first explained in Chapter 1, so if you've forgotten how to 
switch banks, or skipped over that section earlier, refer to it 
now. You've also seen how to relocate custom character sets, a 
technique demonstrated in Chapter 4. 

Another use for bank switching is when you're planning 
on using high-resolution graphics. We haven't looked at this 
excellent tool of the 64, primarily because of its complexity, but 
there are references available which will give you more infor¬ 
mation. There is a short list of other resources, including those 
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which explain high-resolution graphics, in the back of this 
book. 

Video Banks 

Bank 0, the normal section of the computer that the chip 
reads, sees RAM from 0 to 4095 and from 8192 to 16383. The 
ROM character generator is in the area from 4096 to 8191. 
Screen memory normally is located from addresses 1024 to 
2023. 

Bank 1 sees RAM from 16384 to 32767. There is no char¬ 
acter generator in this bank. 

Bank 2 sees RAM in locations 32768 to 36863 and from 
40960 to 49151. The ROM character generator is located at 
addresses 36864 to 40959. 

Bank 3 is similar to Bank 1. It sees RAM from locations 
49152 to 65535. There is no character generator in this bank. 

It is possible to use all four banks during the course of a 
program simply by switching from one to another as the 
program executes. There are a number of things you should be 
aware of, however, before you begin switching banks on the 
64. 

Character sets. To use Banks 1 or 3, you'll have to create 
your own character set, or copy the existing one into an area of 
memory within that bank. If you don't, you won't have a char¬ 
acter set to use, since neither of these banks includes a ROM 
character generator. 

Screen memory. If you change banks, remember that you 
will also have to relocate screen memory. This is true if you use 
any bank but Bank 0. Refer to Chapter 1 for an explanation on 
how to relocate this section of memory. 

Character and sprite DATA. If you are using custom char¬ 
acters, or sprites, or both, you should make sure that the 
DATA information which creates those figures is included in 
the bank you're working with. 
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There is a kind of figure that is partly under the player's control 
and partly under the computer's. When a baseball player in a 
videogame throws the ball, the player might control when the 
ball is released and the angle at which it is thrown, but rarely 
will the player be allowed to control the ball's actual trajectory, 
its path across the screen. That is almost always controlled by 
the computer. The launch is player-controlled, but from then on 
the object continues to go where it was sent. 

The same thing happens with missiles in Asteroids, bombs 
and bullets in Scramble, the power ball in Mr. Do, and the air 
hose in Dig-Dug. They all seem to emerge from the player- 
figure, but once they are launched, their path and the distance 
they travel are usually controlled by the computer. 

The principle of firing missiles is simple enough. When 
the player presses the joystick button or a designated key on 
the keyboard, the program jumps to a launch subroutine. A 
missile-figure (either a character or a sprite) is put on the screen 
a short distance away from the player-figure in the direction in 
which the player is shooting or throwing. Then the missile is 
moved across the screen as far as the program allows it to go. 

The problem with missiles is that they use up time. 

Having a lot of them on the screen has the same effect as 
having a quantity of other characters or sprites. Everything 
that must be moved often slows down everything else. In 
machine language, this usually makes no difference. But in 
BASIC, the difference can be crucial. 

One solution is to stop everything else while the missile 
fires. This is the way the laser beam is handled in Gorf. When 
the laser-firing ship is shooting, it does not move. It won't 
seem to slow down the game much, since things are as fast as 
when the missile is not being fired. 

Another solution is the one we'll use in this example 
program. Program 13-1 is based on Program 5-7, which moved 
a series of playing card symbols (and other graphics characters) 
in a block back and forth across the screen. Now, by adding 
missiles, we can turn it into a game. 

The story. You have been dealt a hand of 56 cards. The 
cards are moving back and forth across the screen, gradually 
coming down at you. Your job is to get them all with your dart 
before they can move down to the bottom row of the screen. 
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You can move your player-figure back and forth across the 
bottom of the screen by using the two cursor-movement keys. 
The UP/DOWN key moves you left; the LEFT/RIGHT key 
moves you right. Pressing the space bar launches your dart. 
You can retrieve your dart at any time just by launching 
another. 

How the missile is handled. Both player movement and 
missile firing happen more often than other screen move¬ 
ments. They are placed in a loop-within-a-loop, so that missile 
movements and player movements take place many times for 
each time the rest of the screen display is moved. It gives the 
feeling of fast missile movement. 

It also gives us a way of adding levels to a program. The 
game will be much easier when the player can move ten times 
and the missile can move ten steps between each movement of 
the deck of cards. Later, when the missile and player move 
only twice between each movement of cards, the player has to 
be absolutely magnificent to clear the screen. The game is just 
too fast for most players. 

How the Program Works 
Line Explanation 

10-90 Initialization. This is pretty much the same as the 
initialization in Program 5-7. D$ is the HOME and 
CURSOR-DOWN characters that place the player- 
figure, P$, on the correct row. The variable P controls 
the horizontal position of P$. The string TR$, for Top 
Row, contains the current score, the number of cards 
remaining, and the number of rows that the cards 
can move down before the player loses the game. 

100 Begin the movement loop. (Since movement is 

handled entirely within FOR-NEXT loops, the 
program will reach the beginning of line 100 only 
when the game starts or the player has got rid of all 
the cards. Therefore, the GOSUB to 300, where the 
FG$ (n) string array is set up, takes place here. The 
same routine is used to set up each new block of 
cards.) 

Decrease the value of T by 1 each time through the 
loop. (We're adding a true value, which is the same 
as subtracting 1.) 

Begin the X, or row, or loop. (Each time through this 
306 
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loop, the deck of cards drops down one row. When 
the cards have crossed the screen for the ninth time, 
the game ends.) 

110 Begin the I loop. (This loop is identical to the loop at 
150, except that the loop at 110 moves from left to 
right and the loop at 150 moves from right to left. 

The J loop PRINTs each line of the deck by PRINTing 
each FG$(») string followed by a semicolon.) 

115-120 After the J loop is complete, the K loop is executed T 
times. This loop contains player and missile move¬ 
ment. When T is a high number early in the game, 
player-figure and dart can both move T times for 
each time the deck of cards moves. At the lowest 
allowable value of T, 2, the player-figure and dart can 
only move twice for each movement of the cards. 

Set variable D to the direction of player movement 
and check for the edge of the player's movement 
range. 

130 PRINT player-figure P$ at row D$ and column E 

Then subtract 40 from M, the current address of the 
missile. To avoid extra arithmetic during the move¬ 
ment loop, M is always set to the absolute address of 
the missile. If the missile is off the screen, the value 
of M will be less than 1024, the start of screen 
memory. 

Then, IF the space bar is pressed, jump to the missile 
launch subroutine at 400. (Notice that the missile 
address is decremented whether the missile is on the 
screen or not, and whether it is launched or not.) 

135 If M>SM (the start of screen memory), the missile is 
on the screen. If it is, PEEK its new location and put 
what is there in the variable F . POKE the missile 
(MX) into screen memory and its color into color 
memory; erase the old missile position (M+40). 

Then, if F is the screen code of a graphics character, 
go to the collision subroutine at 500. If EG is set (1), it 
means all the cards have been hit; jump to the restart 
routine at 990. (The leftward movement loop is iden¬ 
tical, except that the EG jump is to 995.) 

400-410 Missile Launch Subroutine 

400 Erase the last missile fired, if it is still onscreen. (Note 
that this allows you to fire a new missile before the 
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old one has reached the top of the screen. The dart 
keeps moving even after it has hit and removed one 
card. If the cards didn't move, it would be able to 
wipe out an entire column of cards at a time. Missile 
firing will seem sluggish at higher levels of play, but 
the player can always hold down the space bar until a 
missile appears sitting on top of the player-figure. 
Then releasing the space bar will cause the missile to 
launch.) 

410 Set the horizontal position of the missile (MH) to 

P+1. (Since the player position marks the blank to 
the left of the player character, the actual horizontal 
position of the player-figure is P +1.) Set M to screen 
memory (SM) plus 840 (the row above the player- 
figure) plus MH. (That's all that it takes to launch the 
missile—movement is now handled automatically.) 

500-570 Collision-Handling Subroutine 

500 If the dart is in the top row, ignore the collision. Jump 
to 560 to update the score and return. 

510 Calculate which character you hit by comparing it 
with each of the F$(«) characters. If the character 
collided with matches the character F$(3), the colli¬ 
sion was in row FG$(3). 

520 Calculate which character in the string was collided 
with by comparing MH with the horizontal position 
of the deck of cards. Set W to the length of the string 
FG$(n) to the left of the collision character, and set 
WW to the length of the string segment to the right of 
the collision character. 

530 Reconstruct FG$(n) by setting it to everything left of 
the collision character plus a blank plus everything to 
the right of the collision character. (The string is now 
as long as it was before, but now the collision char¬ 
acter is gone.) 

540 Set the points and calculate the new value of L, 
which maintains the total of cards left. 

550 If L now equals 0, the last card has been hit. Add the 
bonus to the score and set the EG flag to 1. 

560 Update the string TR$ with the new score, row, and 
cards left. 

600 The Ending Routine. This is where the program 
jumps if the cards have finished the bottom row 
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without the player getting all of them. 

990-995 Loop Breakout Routines. These lines close each 

FOR-NEXT loop and jump to line 100 to refresh the 
screen and start a new deck of cards. 

Program 13-1. Card Invaders 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

10 DIM FG?(7),F$(6),V$(9),P(8),PP(8) :rera 27 

20 B$=" ":BC=1:DI=1:T=8:SM=1024:CH=55296-SM:MX=30s 
B= 32:EG=0 :rem 54 

40 POKE 53281,BCsPOKE 53280,BCsPRINT "{CLR}":POKE 
{SPACE}657,0 ;rem 104 

60 V$(0)="{HOME}{BLU}":FOR 1=1 TO 9sV$(I)=V$(1-1)+ 
"{DOWN}"sNEXT :rem 190 

70 D$="{HOME}{22 DOWN}"sP$="{BLK} iE3 ":P=20 

srem 114 

80 PP=0:FOR 1=0 TO 8:P(I)=50-(5*I)sPP(I)=9-IsNEXT 

srem 236 

90 TR$="{HOME}"+STR$(PP)+" POINTS "+STR$(L)+" CARD 
S LEFT " +STR$(8—X) + " ROWS LEFT" :rent 115 

100 GOSUB 300sT=T+(T>0):FOR X=0 TO 8:PRINT ”{CLR}" 

srem 96 

110 FOR 1=0 TO 15 SPRINT TR$V$(X)TAB(I)? sFOR J=0 TO 
6SPRINT FG$(J);sNEXT J srem 90 

115 FOR K=0 TO T srem 45 

120 Q=PEEK(197)sD=(Q=7)-(Q=2)sP=P+D+((P>34 AND D=1 
)-(P<l AND D=—1)) srem 1 

130 PRINT D$TAB(P)P$sM=M-40sIF Q=60 THEN GOSUB 400 

srem 23 

135 IFM>SM THENF=PEEK(M)sPOKEM,MXs POKECH+M,4s POKEM 
+40,BsIFF>63 THENGOSUB 500 srem 200 

140 IF EG=1 THEN EG=0sGOTO 990 srem 91 

145 NEXT KsGOSUB 560sNEXT I srem 59 

150 FORI=14 TO 0 STEP-1 SPRINT TR$V$(X)TAB(I);sFORJ 
=0 TO 6 SPRINT FG$(J)?sNEXT J srem 247 

155 FOR K=0 TO T srem 49 

160 Q=PEEK(197)s D=(Q=7)-(Q=2)sP=P+D+((P>34 AND D=1 
)-(P<l AND D=—1)) srem 5 

170 PRINT D$TAB(P)P$ sM=M—40sIF Q=60 THEN GOSUB 400 

srem 27 

180 IFM>SM THENF=PEEK(M)sPOKEM,MXsPOKECH+M,4sPOKEM 
+40,BsIFF>63 THENGOSUB 500 srem 200 

185 IF EG=1 THEN EG=0sGOTO 995 srem 105 

190 NEXT KsGOSUB 560sNEXT IsNEXT XsGOTO 600srem 21 
300 F$(0)="Q"sF$(l)="S"sF$(2)="A"sF$(3)="Z"sF$(4)= 
"X"sF$(5 )="£b 3"sF$(6)="£" srem 119 
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305 FOR 1=0 TO 6 STEP 2:FG$(I)="{BLU}":FG$(1+1)=" 

{RED}":NEXT srem 152 

310 FORI=0 TO 6:FG$(1)=FG$(!)+"{DOWN}" srem 151 

320 FORJ=0 TO 7 sFG$(I)=FG${I)+B$+F$(I)+B$ :NEXT:NEX 
T srem 93 

330 FOR 1=0 TO 5 sFG§(I)=FG$(I) + "{16 SPACES}"sNEXT 
390 L=56sRETURN srem 170 

400 IF M>984 THEN POKE M+40,32 srem 30 

410 MH=P+lsM=SM+MH+840sRETURN srem 24 

500 IF M<1064 THEN 560 srem 66 

510 F=F+128+64*(F>100)sFOR 11=0 TO 6sIF F=ASC(F$(l 
I))THEN F=II srem 72 

520 NEXT IIsW=MH-I+2sWW=41-W+16*(F=6) srem 114 

530 FG$(F)=LEFT$(FG$(F),W)+B$+RIGHT$(FG$(F),WW) 

srem 89 


540 PP=PP+INT(P(F)*PP(X))sL=L-l srem 68 

550 IF L=0 THEN L=56:PP=PP+1000*(8-T):EG=1 srem 16 
560 TR$="{HOME}"+STR$(PP)+" POINTS "+STR$(L)+" CAR 
DS "+STR$(8—X)+" ROWS{5 SPACES}" srem 79 

570 RETURN srem 124 

600 PRINT "{CLR}"sFOR 1=0 TO 6sPRINT "{RED}"SPRINT 
F$(I)sPRINTsNEXT srem 220 

610 PRINT STR$(PP)" POINTS"sPRINT srem 26 

620 PRINT "PRESS A KEY TO PLAY AGAIN"sPRINTsrem 32 
630 FOR 1=0 TO 3000 srem 156 

640 IF PEEK(197)<64 THEN 660 srem 177 

650 NEXTsPRINT "THANKS FOR PLAYING 1"sEND srem 219 

660 1=3000sNEXT IsPP=0sT=8sGOTO 100 srem 245 

990 K=TsNEXTs1=15sNEXTsX=8sNEXTsGOTO 100 srem 26 
995 K=TsNEXTsI=0sNEXTsX=8sNEXTsGOTO 100 srem 233 
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You'll notice that there is no sound in this game. It would 
certainly be better with sound—feel free to add your own 
sound routines. Also, the game would be more enjoyable if the 
graphics symbols that are not hearts, diamonds, spades, or 
clubs were redefined as custom characters for kings, queens, 
and jacks. These could even be animated using character 
flipping. 

It's often a good idea to practice game programming by 
modifying or building on a game like this one. You know that 
this games runs as is; you can now improve it and alter it until 
it exactly suits you. My guess is that by the time you got 
through altering the game, very little would be left of the orig¬ 
inal—it would have become your game entirely. But at every 
step along the way, you'd have a completed, working game to 
let you see how each change you've made works with the rest 
of the program. 
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Other Missiles 

There are many other ways that missiles can behave. For 
instance, you could use a projectile that stays attached to the 
player-figure, like the air hose in Dig-Dug. This is done by 
simply not erasing each old missile position. Then, when the 
shot is finished, the entire line is erased all at once. While the 
hose is extended, the player-figure can't move. 

Another possibility is a rebounding missile, like the power 
ball in Mr. Do. It keeps bouncing around until it hits a target or 
is retrieved by the player-figure. 

Missiles can go a set distance and then fade, like the 
missiles in Asteroids. Asteroids also allows four missiles at once, 
which is easy enough in machine language, but very slow in 
BASIC. 

You can also allow the player a limited number of missiles, 
the way Missile Command does. When the missiles are gone, 
they're gone, and the player becomes a helpless target. 

You can allow computer-launched missiles to attack the 
player, forcing the player to dodge. 

Missiles can be boomerangs, rebounding to the launch 
position where the player-figure must pick them up before it 
can launch again. 

Missiles can be short extensions of the player-figure, like 
the kangaroo's arm and boxing glove in Kangaroo and the 
hammer in Donkey Kong. 

But in all cases, missiles follow the same general pattern. 
The player's command launches the missile, the player-figure's 
location determines the missile's starting position and direc¬ 
tion, and from then on the computer controls missile move¬ 
ment like any other programmed object on the screen. 
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Your First Game— 
and Mine 


We've been through all the principles of programming arcade 
games in BASIC on the 64. Using other reference books, you'll 
be able to pick up some more sophisticated techniques, and if 
you're serious about game design, you'll eventually turn to 
machine language. But for now, you're certainly ready to write 
a game. Your first attempt might be simple, but if you program 
carefully, leaving plenty of line numbes for adding new 
subroutines to improve the game, your first game will turn out 
pretty well. And with patience, you'll gain skill and 
confidence. 

But no matter how good you eventually become, you'll 
probably always feel proud of your first few games. I know I 
feel that way about the games I first designed and wrote. The 
two games in this chapter, "Crusade" and "Magneto," were the 
result of trying out techniques I'd first learned on the VIC. The 
64 is so different, though, that my initial versions were primi¬ 
tive, and didn't fully use the 64's abilities. So I changed and 
rewrote and debugged these games until they worked to my 
satisfaction. I finally settled on the versions you see here. 

There are some features for each of these games that you 
may find interesting, and which also show how I learned to 
program games in BASIC. 


Crusade 


Crusade, for instance, is an all-BASIC game. I didn't even use a 
machine language subroutine to move the player-controlled 
character around the screen. I wanted to see what I could do 
using only BASIC. I think you'll agree that it worked out well. 

Writing games in BASIC often means walking a thin line 
between speed and complexity. Games like Defender or Robotron 
cannot be written in BASIC. The games need to move much 
faster than BASIC allows. Other games, such as Pac-Man and 
Berserk, are a better model for those of us who are working 
solely in BASIC. For instance, this game began with an idea to 
include a fair amount of missile firing. The player's character 
would fire missiles at the infidels; the infidels would fire back. 
But I discovered while programming that BASIC could not 
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execute all this and still keep playing at a reasonable speed. 
Once I realized that, I eliminated the feature and made the 
game what it is now. It became playable. 

The flashy title screen was harder to program than it was 
to think of. The letters of "Crusade" are spelled out in silhou¬ 
ette, and each row was assigned to an array variable and then 
PRINTed out in a different color each time to create the 
rainbow effect. 

In my attempt to make the game play faster, I discovered 
something. By moving everything that fell before the main 
loop to a far-distant subroutine, I increased the game's speed. 
This increased the speed of the backward GOTOs, which have 
to hunt from the beginning of the program forward to find the 
line they're going to. I also sped up the game by making all the 
constants in the main loop into variables defined at the begin¬ 
ning of the program. Although this reduces the readability of 
the program, I found it to be the fastest and easiest way of 
speeding up a game. 

The program is long. There are only about 100 bytes free 
while the program executes. I could have relocated some 
things to another 16K bank of memory, but I wanted to see if I 
could write the game using only one video bank. I did it, but it 
was close. The graphic characters are stored in the top 2K 
block of the bank. Most were copied from the ROM character 
set (see Chapter 4 for explanations on how to do this), but 
there are some custom characters. 

I used sprites for the infidel figures. Sprites worked well 
here, for I could animate them by blinking lights on and off in 
their chests. A single POKE of new values into the sprite DATA 
block was all it took. Since all the infidels share the same sprite 
DATA, they appear identical. This is another way to save 
memory space if you find yourself running short, as I did. 

I also included a pair of convenience controls in the game. 
Hitting the fl key during the main part of the game will reset 
the program (although it will take only a moment for the game 
to be ready again). Pressing the f7 key stops the program (and 
the time clock,too), so that you can analyze the game, or take a 
break from it. 

This was one of my first games on the 64.1 hope you like 
it. Maybe I'll get to play yours someday. 
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Program 14-1. Crusade 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 


100 POKE56,53SPOKE55,128:CLR 

110 GOSUB1290 

120 GOSUB1340 

130 GOSUB990 

140 ; 

150 POKEV0,SX:P0KEV1,SY 


:rem 116 
:rem 222 
srem 219 
:rem 182 
:rem 207 
:rem 234 


160 A=PEEK(V4)+PEEK(V5):IF(PEEK(V4)ANDZ1)+(PEEK(V5 
)ANDZ1)THEN860 srem 97 

170 GETA$sIFA$= MM THEN230 srem 80 

180 IFA$="{FI}"THENPOKE53269,0:GOTO120 srem 92 

190 IFA$<>"{F7}"THEN230 srem 152 

200 T$=TI$ srem 8 

210 GETA$sIFA$=""THEN210 srem 73 

220 TI$=T$ srem 10 

230 K=ZB-PEEK(JS)sIFK=Z0THEN330 srem 153 

240 IFKANDZATHEN500 srem 162 

250 IFKANDZ1THENSY=SY-Z4 sG0T0270 srem 90 

260 IFKANDZ2THENSY=SY+Z4 srem 78 

270 IF(KANDZ4)=Z0THEN300 srem 174 

280 SX=SX-Z4 sIFDR=Z0THENSX=SX-Z6 s POKEV0,SXANDZD s DR 

=Z4 srem 95 

290 GOTO320 srem 105 

300 IF(KANDZ8)=Z0THEN320 srem 174 

310 SX=SX+Z4sIFDR=Z4THENSX=SX+Z6 s POKEV0,SXANDZDs DR 
=Z0 srem 85 

320 POKEPN ( SB+WK+DRsWK=(WK+Z1)ANDZ3 srem 211 

330 I=PEEK(V2)sIFSX>ZDTHENSX=SX-ZEsI=I0RZ1sP0KEV2, 
Is POKEV0,SX srem 89 

340 IFSX<Z0THENSX=SX+ZEsI=IANDZC s P0KEV2,1s POKEV0,S 
X srem 200 

350 IFSY<M0ORSY>M1OR(SX<M2AND(IANDZ1)=Z0)OR(SX>M3A 
ND(IANDZ1))THEN580 srem 113 

360 IFLRTHENLR=LR+1+15*(LR>14)s POKE53294,LRs rem 81 
370 POKE14223+BL,72sBL=BL+3sIFBL>6THENBL=0srem 249 
380 POKE14223+BL,75 srem 23 

390 F0RI=Z2T012STEPZ2 sIFAL%(RM,I/Z2)=Z0THEN440 

srem 140 

400 J=PEEK(V0+I)sJ=J+SR*SGN((PEEK(V2)ANDZ1)*ZE+SX— 
J)sK=PEEK(Vl+I) srem 191 

410 K=I<+SR*SGN(SY-K) srem 191 

420 IFJ<ZEANDJ>M2THENPOKEV0+I,J srem 242 

430 IFK<M1ANDK>M0THENPOKEV1+I,K srem 212 

440 NEXTsIFPEEK(V4)ANDZ1THEN860 srem 203 

450 IFPEEK(V4)+PEEK(V5)=Z0THEN150 srem 224 
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460 F0RI=Z1T0Z6:IF((PEEK(V4)ORPEEK(V5))ANDZ2fl)=Z0 
THENNEXT:G0T0150 srem 22 

470 POKE53287+I,1sFORJ=1TO100sNEXTsPOKE53287+I,I 

:rem 133 

480 AL%(RM,I)=Z0:P0KEV3,PEEK(V3)ANDZD-Z2tl:NEXT:GO 
TO150 srem 234 

490 s srem 215 

500 IFCS=0THEN390 srem 242 

510 CS=CS-1sPRINT"{HOME}"TAB(10)CS$(CS)" "srem 233 
520 POKE53285,1sPOKE54273,10:POKE54277,llsPOKE5427 
8/0sFORI=lTO3 srem 162 

530 POKE54276,3s POKE54276,129 s FORJ=4TO0STEP-1s POKE 
53280,CL(J)sPOKE53281,CL(J) srem 56 

540 FORK=0TO50 s NEXT s NEXT s FORK=0TO99 s NEXT s NEXT s POKE 
54276,8 srem 231 

550 F0RI=1T06sAL%(RM,I)=0 s POKE53269,PEEK(53269)AND 
(255-2fl) srem 178 

560 FORJ =1TO100sNEXT s NEXTs POKE53285,12 s GOTO390 

srem 110 

570 s srem 214 

580 IF(SY<M0ANDD%(RM,1)=0)OR(SY>M1ANDD%(RM,1)=1)TH 
EN610 srem 239 

590 IFSX<M2ANDD%(RM,1)=2THEN610 srem 81 

600 IFSX<M30R(PEEK(V2)ANDZ1)<>Z10RD%(RM,1)<>3THEN1 
30 srem 166 

610 PRINT"{HOME}{7 DOWN}"TAB(11)"THERE IS NO RETUR 
N1{UP}"s FORJ=1TO500 sNEXT srem 141 

620 PRINTTAB(11)"{19 SPACES}"sIFD%(RM,1)AND2THENSX 
=SX(D%(RM,1))sGOTO640 srem 77 

630 SY=SY(D%(RM,1)) srem 53 

640 IFD%(RM,1)>lTHENDR=-4*(D%(RM,1 )=3)s POKE2040, SB 
+WK+DR srem 208 

650 GOTO150 srem 106 

660 s srem 214 

670 PRINT"{CLR}{7 DOWN}"TAB(14)"YOU HAVE WONI"sT$= 
TI$sT=TI srem 151 

680 POKE53294,8sPOKE53248,PEEK(53248)-11sPOKE53249 
,PEEK(53249)-6 srem 90 

690 POKE53262,PEEK(53262)-11sPOKE53263,PEEK(53263) 
-6 srem 119 

700 POKE53271,129sPOKE53277,129 srem 201 

710 FORI=1TO5000 sNEXTs PRINT"{CLR}"s POKEV3,0 s POKE53 
270,8sPOKE53272,23 srem 206 

720 POKE53280,12sPOKE53281,12 srem 84 

730 IFT< MTTHENMT=T s MT $=T $ sMR=RR srem 41 

740 PRINTTAB(15)"{WHT}{3 DOWN}g9 @3"sPRINTTAB(15 
)"{RVS} CRUSADE " srem 40 

750 A$=T$sGOSUB830:PRINTTAB(5)"{3 DOWN}{BLU}YOUR T 
IME (FOR"RR"ROOM"; srem 50 
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760 IFRR<>1THENPRINT"S"; :rem 9 

770 PRINT") WAS{DOWN}g43"sPRINTA$ :rem 87 

780 A$=MT$:GOSUB830:PRINTTAB(4)"{3 DOWN}{RED}BEST 
{SPACE}TIME YET {FOR"MR"ROOM"; :rera 74 

790 IFMR<>1THENPRINT"S"; srem 7 

800 PRINT") IS{DOWN}043"sPRINTA$ srem 2 

810 F0RI=1T07500sIFPEEK(JS)AND16THENNEXT srem 42 
820 GOTO120 srem 102 

830 B$=A$sA$=" "+LEFT$(B$,2)+" HOURS, "+MID$(B$,3, 

2)+" MINUTES, AND " srem 174 

840 A$=A$+RIGHT$(B$,2)+" SECONDSsRETURN srem 75 
850 s srem 215 

860 FORI=1TO200 sNEXTsIF{PEEK(V4)AND128)=128THEN670 

srem 22 

870 POKE54272,10sPOKE54277,0sPOKE54278,245sPOKE542 
75,1sPOKE54276,65 srem 60 

880 FORI=lTO100sNEXTsPOKE54276,64 srem 242 

890 F0RI=1T0161s POKE53287,1sNEXT s FORI=3TO0STEP-1s P 
OKE53287,CL(I)sFORJ=0TO400 srem 247 

900 NEXTsNEXT s POKEV3,0 s POKE53280,1s POKE53281,1s RS= 
RS-1sIFRS<0THEN940 srem 245 

910 POKE53282,1sPOKE53283,1sPOKE53287,1 srem 196 

920 PRINT"{HOME}"TAB(37)RSsFORI=0TO48sPOKE53280,1s 
POKE53281,1sFORJ=lTO50sNEXTsNEXT srem 48 

930 DR=-4*((D%(RM,1)AND1)=1)s GOSUB1220S GOTO150 

srem 76 

940 POKE53280,0sPOKE53281,0 srem 242 

950 PRINT"{CLR}{WHT}{6 DOWN}"TAB(11)"ALAS, THE BLE 

SSING"sPRINTTAB(13)"IS NO MORE ... srem 43 

960 FORI=1TO7500sIFPEEK(JS)AND16THENNEXT srem 48 

970 PRINT"{CLR}"s POKE53270,8s POKE53272,21SGOTO120 

srem 211 

980 s srem 219 

990 T$=TI$sRM=RM+lsPOKEV3,0 srem 119 

1000 POKE53280,1s POKE53281,1s PRINT"{CLR}"s POKE5327 
2,23 srem 179 

1010 PRINT"{11 DOWN}"TAB(5)"{WHT}* * PREPARE TO ENT 
ER ROOM"RM"** srem 74 

1020 FORI=4TO0STEP-1sPOKE53281,CL(I)sPOKE53280,CL( 
I)sFORJ=lTO200sNEXTsNEXT srem 82 

1030 POKE54280,0 s POKE54281,0 s POKE54282,244 s POKE542 
82,1sPOKE54283,65 srem 32 

1040 F0RI=1T039sPRINT"{UP} "CHR$(20)sFORJ=lTO50sNE 
XTsPOKE54280,100—I*2sNEXT srem 144 

1050 PRINT"{HOME}"TAB(11)"{11 DOWN}{BLK}PRAY FOR Y 
OUR SOUL.{WHT}"sPOKE54283,0 srem 246 

1060 FORI=0TO4s POKE53281,CL(I)s POKE53280,CL(I)sFOR 
J=1TO200sNEXTsNEXT srem 188 
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PRINT"{HOME}{WHT} ROOM"RMTAB(10)CS$(CS)TAB(24 
)"RESURRECTIONS"RS; srem 97 
PRINTSPC(16)LEFT?(T$,2)":"MID?(T?,3,2)":"RIGH 
T?(T?,2) srem 179 
POKE53282,1;POKE53283,1s FORI=0TO11sIFRM%(RN%( 
RM),I)=0THENNEXTs GOTO1120 srem 27 
A=WS%(I)sPOKEWB%{I)-A,69 s POKEWE%(I)+A,69 

srem 62 

FORJ=WB%(I)TOWE%(I)STEPA s POKEJ,6 5-(A>1)s POKEJ 
+54272,9sNEXTsNEXT srem 181 
FORI=0TO39 s POKE1104+1,64s POKE55376+1,9s POKE19 
84+1,64 s POKE56256+1,9 sNEXT srem 1 
FORI=40TO840STEP40 s POKE1104+1,64 s POKE55376+I, 
9 s POKE1143+1,64 s POKE55415+1,9 srem 124 
NEXT s J=D%(RM,1)s FORI=DB%(J)TODE%(J)STEPDS%(J) 
s POKEI,67-(DS%(J)>1) srem 119 
POKEI+54272,9sNEXT srem 76 
J=D%{RM,2)s FORI=DB%(J)TODE%(J)STEPDS%(J)s POKE 
I,67-(DS%(J)>1)sPOKEI+54272,9 srem 71 
NEXT s SR=INT(1.5+RM/20* 3)s PRINT"{HOME}"TAB(11) 
"{11 DOWN}{19 SPACES}" srem 83 
POKE53272,31s POKE54291,0 s POKE54292,250 s POKE54 
287,50 s POKE54290,129 srem 193 
POKE54290,128 sFORI=4TO0STEP-ls POKE53281,CL(I) 
s POKE53280,CL(I) srem 142 
FORJ=1TO200sNEXTsNEXTsTI?=T? srem 57 
s srem 254 


J=1sLR=0sIFRM=RRTHENJ=129s POKE53262,178 s POKE5 
3263,150sLR=l srem 8 
FORI=lT06 s POKEV0+1*2,RND(1)*215+40 s POKEVl+I*2 
,RND(1)*130+75 srem 134 
IFAL%(RM,I)THENJ=J+2tl srem 113 
NEXT s K=D%(RM,1)s POKEV2,(PEEK(V2)ANDZC)-(K=3)s 
SX=SX(K)sSY=SY(K) srem 104 
WK=0 s POKEV0,SXs POKEV1,SYs POKEPN,SB+DRs POKEV3, 
J srem 87 
POKE53283,(RMAND3)+1s POKE53282,SRs RETURN 

srem 212 


s srem 5 

K=0 sI=0 s J=0 s SX=0 s SY=0 s DR=0 s WK=0 s BL=0 s REM THIS 
IS TO ORDER THE VAR.TABLE srem 54 

Z0=0s Zl=ls Z2=2 s Z3=3s Z4=4s Z6=6s Z8=8 s ZA=16 s ZB=1 
27 $ZC=254sZD=255sZE=256 srem 74 

PN=2040 sV0=53248 sVl=53249 sV2=53264 sV3=53269 sV 
4=53278 sV5=53279 sJS=56320 srem 164 

SB=214 sM0=66 sMl=229 sM2=16 sM3=69 sMT=9999999 sGO 
SUB2040SPOKE54296,15 srem 16 

DIM AL%(40,6),D%(40,2),RM%(7,11),RN%(40),WB%( 
11),WE%(11),WS%(ll)sRETURN srem 195 
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PRINT"{CLR}"s POKE53280,0 s POKE53281,0s POKE5327 
2,21:POKE53271,0:POKE53277,0 srera 74 

POKE53270,8:A$(0)=" {RVS}M E*RIGHT}M 
{3 SPACES} g * 3 {RIGHTJ Mg * 3{2 RIGHT}Mg*3 
{RIGHT}M{2 SPACES}g*1f{2 RIGHT}M{2 SPACES} 
g *3{RIGHT} M {3 SPACES}g* 3{RIGHTTM 
{3 SPACES}f*3" srem 117 

A$(1)="MM{2 right} g*3 {4 right} g*3 
{3 RIGHT}" {RIGHT}MM{3 RIGHT}g*3MM{3 RIGHT} 
g*3 {4 RIGHT} g*3 Toff} {4 SPACES']"^ srem 49 

A$(2)="{RVS} [2 RIGHT}{OFF}g*3{RVS}{RIGHT} 
{SPACE}{3 RIGHT} {RIGHT} {3 RIGHT} {RIGHT} 

{3 RIGHT}{OFF}g*3{RVS}{RIGHT} {3 RIGHT} 

{RIGHT} {3 RIGHT} {RIGHT} {OFF}{4 SPACES}" 

srem 121 

A$(3)="{RVS} {4 RIGHT} {RIGHT}{2 SPACESjM 
{RIGHT} {3 RIGHT} {RIGHT}{OFF}g*3{RVS} 

{RIGHT}{2 SPACES}g*3{RIGHT} {RIGHT} 

{2 SPACES}M{RIGHT} {3 RIGHT} {RIGHT} {RIGHT} 

{SPACE}g*3lOFF} " srem 220 

A$(4)="{RVS} £4 RIGHT} {5 RIGHT} {3 RIGHT} 

{5 RIGHT} {RIGHT} {3 RIGHT} {RIGHT} {3 RIGHT} 
{RIGHT} {OFF}{4 SPACES}" srem 206 

A$(5)="{RVS} {2 RIGHT}Mg*3 {3 RIGHT} 

{RIGHT} {3 RIGHT} {RIGHT}Mg*3(2 RIGHT} 

{RIGHT} {3 RIGHT} {RIGHT} {3 RIGHT} {RIGHT} 
{OFF}{4 SPACES}" srem 142 

A$(6)="g*3{RVS}{RIGHT} M{RIGHT} {3 RIGHT} 

{ RIGHT } { OFF } g *3 {RIGHT } { RVS} { 2 SPACES } M 
{RIGHT}{OFF}g*3{RIGHT}{RVS}{2 SPACESjM 
{RIGHT} {3 RIGHT} {RIGHT} {RIGHT}{2 SPACESjM 
{RIGHT} {RIGHT}{2 SPACES}g*3" srem 42 

A$(7)="{OFF} g*3{3 SPACES}g*3{3 SPACES} 
g*3{2 SPACES}g*3{5 SPACES}g*3{4 SPACES} 
g* 3 C 3 SPACES}g*3 g*3{5 SPACES}g*3" 

srem 158 

CL$="{RED}g13{YEL}{GRN}{CYN}{BLU}{PUR}{WHT} 

" srem 180 

FORT=lTO30sPRINT"{HOME}{6 DOWN}" srem 252 

FORLN=0TO7:PRINTMID$(CL$,CL+1,1)A$(LN);:CL=(C 
L+l)AND7:NEXTsCL=(CL+l)AND7 srem 107 

IFPEEK(JS)AND16THENNEXT srem 21 

PRINT"{HOME}{6 DOWN}{WHT}"sFORI=0TO7:PRINTA$( 
I);:NEXT srem 70 

CL(1)=11sCL(2)=12sCL(3)=15:CL(4)=1 srem 21 

F0RI=lT04s POKE53280,CL(I):POKE53281,CL(I)sFOR 
J=1TO200 sNEXT sNEXT srem 196 

PRINT"{CLR}{WHT}"sPOKE53272,23 srem 44 
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CR$="- CRUSADE -" ; PRINTTAB ( 7 ) CR 

$ srem 55 

PRINT"{DOWN}{4 SPACES}YOU ARE ON A CRUSADE TO 

RECOVER THE" :rem 126 

PRINT"CROSS OF GOLD, REVERED FOR CENTURIES BY 

" :rem 76 

PRINT"YOUR ANCESTORS, BUT STOLEN BY INFIDELS. 
" srem 159 

PRINT"YOU MUST FIND YOUR WAY THROUGH THEIR" 

srem 96 

PRINT"CATACOMBS, AVOIDING THEIR TOUCH AT ALL" 

srem 20 

PRINT"COSTS, UNTIL YOU FIND THE CROSS." 

srem 153 

PRINT"{DOWN}{4 SPACESjTHEIR TOUCH SPELLS DOOM 
TO YOU, BUT srem 198 

PRINT"YOU CAN USE THE POWERS GRANTED YOU TO" 

srem 186 

PRINT"MAKE THESE BEINGS VANISH.{2 SPACESjYOU 
{SPACEjCAN USE" srem 27 

PRINT"THIS POWER ONLY THREE TIMES.{2 SPACESjY 
OUR" srem 152 

PRINT"POWER ALSO BREATHES LIFE INTO YOU," 

srem 40 

PRINT"RAISING YOU FROM THE DEAD THREE TIMES." 

srem 241 

PRINT"{DOWN}{4 SPACES}TO USE YOUR POWERS, SIM 

PLY" srem 247 

PRINT"DEPRESS THE BUTTON ON JOYSTICK 2." 


srem 222 

PRINT"{DOWN}{5 SPACESjMAY YOUR CRUSADE GO WEL 
L." srem 105 

FORI=4TO0STEP—1s POKE 53 2 80,CL(I)s POKE 532 81,CL( 

1) sFORJ=lTO200sNEXTsNEXT srem 93 

POKE54277,0s POKE54278,15*16+4sPOKE54272,0 

srem 33 

PRINT"{DOWN}{2 SPACESjNUMBER OF ROOMS (JOYSTI 
CK) —"sRR=20 srem 56 

POKE214,21s PRINTsB$=RIGHT$("0"+MID$(STR$(RR) , 

2) ,2)sPRINTTAB(32)B$ srem 42 

IFNOTPEEK(JS)AND16THEN17 60 srem 147 

IFNOTPEEK(JS)AND4THENRR=RR+(RR>1)s GOTOl750 

srem 231 

IFNOTPEEK(JS)AND8THENRR=RR-(RR< 40)s GOTOl750 

srem 31 

PRINT"{HOME}{DOWN}"TAB(7)MID$(CL$,CL+1,1)CR$ s 
CL=(CL+l)AND7sGOTOl700 srem 214 

POKE54276,8sPOKE54273,50+RR*2sPOKE54276,17sPO 
KE54276,16sGOTO1740 srem 218 
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1760 POKE54278,249:POKE54276,8:POKE54273,10:POKE54 
276,129:POKE54276,128 srem 19 

1770 PRINT"{UP}{WHT}"TAB(32)B$"{HOME}{DOWN}"TAB(7) 
CR$ :rem 169 

1780 F0RJ=1T06:F0RI=1T0RR:AL%(I,J)=l:NEXT:POKEPN+J 
,222:POKE53287+J,J:NEXT :rem 94 

1790 POKEPN+7,223:POKE53287+7,7:POKE53287,1 

:rem 201 

1800 RESTORE:FORI=0TO7:FORJ=0TO11:READRM%(I,J):NEX 
T:NEXT srem 151 

1810 D%(0,2)=3:DR=0:FORI=lTORR:RN%(I)=INT(RND(1)*8 
) srem 184 

1820 D%(I,1)=(D%(I—1,2)AND254)OR(NOTD%(1-1,2)AND1) 

srem 140 

1830 D%(I,2)=INT(RND(1)*4):IFD%(1,1)=D%(1,2)THEN18 
30 srem 44 

1840 NEXT s D%(RR,2)=D%(RR,1)s FORI=0TO3:READDB%(I),D 
E%(I),DS%(I)sNEXT srem 177 

1850 FORI=0TO11:READWB%{I),WE%(I),WS%(I)sNEXT 

srem 179 

1860 FORI=0TO3:READSX(I),SY(I)sNEXTsPOKE53270,24:P 
OKE53283,1:POKE53284,1:RM=1 srem 162 

1870 RS=3 sCS=3sPOKE53280,11sPOKE53281,11sPOKE53276 
,254sPOKE53275,255 srem 134 

1880 FORI=lTORR:F0RJ=1T06 s AL%(I,J)=1:NEXT s FORI=0TO 
3:READCS$(I)sNEXT srem 27 

1890 IFPEEK(13697)<>960RPEEK(14337)<>102ORPEEK(148 
48) O170THEN1910 srem 28 

1900 F0RI=1T03:POKE53280,CL(I)s POKE53281,CL(I)sFOR 
J=1TO200sNEXT:NEXTSGOTO1990 srem 5 

1910 POKE56334,PEEK(56334)AND254:POKE53274,0 

srem 222 

1920 POKE53280,12:POKE53281,12:SP=13696 srem 170 

1930 READAsIFA<0THENFORI=1TO-A:POKESP,0 s SP=SP+1:NE 
XT:GOTO1930 srem 184 

1940 IFA<ZETHENPOKESP,AsSP=SP+1sGOTO1930 srem 64 

1950 POKE53280,15:POKE53281,15 srem 144 

1960 POKE1,51sCl=55296:C2=14336 srem 165 

1970 FORI=0TO511s P0KEC2+I,PEEK(Cl+I)s NEXT:P0KE1,55 
:POKE56334,PEEK(56334)0R1 srem 20 

1980 C2=14848:FORI=0TO47sREADAsP0KEC2+I,AsNEXT 

srem 65 

1990 POKE53285,12:POKE53286,1 srem 102 

2000 POKE657,128sPOKE53272,31:POKE53280,1:POKE5328 
1,1 srem 231 

2010 POKE54273,20:POKE54277,0sPOKE54278,247:POKE54 
280,10:POKE54284,0 srem 84 

2020 POKE54285,247 sTI$="000000":RM=0:RETURN 

srem 192 
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: :rem 255 
FORI=0TO23:POKE54272+I,0 :NEXT srera 33 
POKE54276,8:POKE54283,8 s POKE54290,8:RETURN 

:rem 32 

DATA 1,0,0,1,0,0,0,0,1,0,1,0 srem 10 
DATA 0,0,0,1,0,0,1,1,0,0,0,0 srem 10 
DATA 1,1,0,0,0,0,0,0,0,0,1,1 srem 12 
DATA 1,0,0,0,0,0,1,1,1,0,0,0 srem 13 
DATA 0,0,0,1,0,0,0,0,1,0,0,0 srem 3 
DATA 0,0,0,0,0,1,1,0,1,0,0,0 srem 5 
DATA 0,0,0,0,0,1,0,0,0,1,1,0 srem 6 
DATA 1,0,0,0,0,1,1,0,0,0,0,1 srem 8 
DATA 1120,1127,1,2000,2007,1,1424,1664,40,146 

3.1703.40.1152.1352.40 srem 186 
DATA 1175,1375,40,1385,1391,1,1393,1414,1,141 

6.1422.1.1432.1672.40 srem 171 
DATA 1455,1695,40,1705,1711,1,1713,1734,1,173 

6.1742.1.1752.1952.40 srem 187 
DATA 1775,1975,40 srem 74 
DATA 173,72,173,226,31,147,59,147 srem 92 
DATA " NO POWERS"," ONE POWER"," TWO POWERS", 
"THREE POWERS{2 SPACES}" srem 152 
DATA 0,96,0,0,208,0,0,240,0,0,224,0,0,192,0,1 
,192,0,3,224,0,3,60,0,3,0,0 srem 93 
DATA 3,0,0,3,128,0,6,192,0,12,96,0,24,48,0,48 
,48,0,112,56,-17 srem 130 
DATA 0,96,0,0,208,0,0,240,0,0,224,0,0,192,0,1 
,192,0,3,224,0,3,60,0,3,0,0 srem 95 
DATA 3,0,0,07,128,0,12,192,0,12,192,0,24,96,0 
,24,96,0,28,112,-17 srem 17 
DATA 0,96,0,0,208,0,0,240,0,0,224,0,0,192,0,1 
,192,0,3,224,0,3,48,0,3,24 srem 65 
DATA 0,3,0,0,3,128,0,3,192,0,3,128,0,3,0,0,7, 
0,0,15,128,-17 srem 253 
DATA 0,96,0,0,208,0,0,240,0,0,224,0,0,192,0,1 
,192,0,3,224,0,3,60,0,3,0,0 srem 99 
DATA 3,0,0,7,128,0,12,192,0,12,192,0,24,96,0, 
24,96,0,28,112,-17 srem 229 
DATA 0,6,0,0,11,0,0,15,0,0,7,0,0,3,0,0,3,128, 
0,7,192,0,60,192,0,0,192,0,0 srem 141 
DATA 192,0,1,192,0,3,96,0,6,48,0,12,24,0,12,1 
2,0,28,14,-16 srem 234 
DATA 0,6,0,0,11,0,0,15,0,0,7,0,0,3,0,0,3,128, 
0,7,192,0,60,192,0,0,192,0,0 srem 134 
DATA 192,0,1,224,0,3,48,0,3,48,0,6,24,0,6,24, 
0,14,56,-16 srem 131 
DATA 0,6,0,0,11,0,0,15,0,0,7,0,0,3,0,0,3,128, 
0,7,192,0,12,192,0,24,192,0 srem 95 
DATA 0,192,0,1,192,0,3,192,0,1,192,0,0,192,0, 
0,224,0,1,240,-16 srem 150 
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2340 DATA 0,6,0,0,11,0,0,15,0,0,7,0,0,3,0,0,3,128, 
0,7,192,0,60,192,0,0,192,0 srem 46 

2350 DATA 0,192,0,1,224,0,3,48,0,3,48,0,6,24,0,6,2 
4,0,14,56,-16 srem 227 

2360 DATA 3,0,0,15,192,0,63,240,0,15,192,0,106,164 
,0,72,132,0,72,132,0,72,132 srem 146 

2370 DATA 0,69,68,0,10,128,0,8,128,0,8,128,0,8,128 
,0,8,128,0,20,80,0,20,80,-17 srem 212 

2380 DATA 0,40,0,0,40,0,0,235,0,2,170,128,2,150,12 
8,2,170,128,0,235,0,0,40 srem 236 

2390 DATA 0,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0,0,4 
0,0,0,40,-19,256 srem 64 

2400 DATA 170,170,170,170,170,170,170,170,0,0,0,17 
0,170,0,0,0 srem 132 

2410 DATA 40,40,40,40,40,40,40,40,0,0,0,85,85,0,0, 
0 srem 143 

2420 DATA 4,4,4,4,4,4,4,4,255,255,255,255,255,255, 
255,255 srem 246 


Magneto 

This game uses somewhat different programming techniques. 
It's not a completely BASIC game, for the multicolored player- 
controlled character is moved with a machine language 
routine. The keyboard routine you saw in Chapter 8 is the one I 
POKEd into the cassette buffer to move the character. I found 
uses for some things in this game that I didn't in Crusade, such 
as stationary sprites, random sounds, ring modulation, and 
multicolored characters. It made it more interesting as I 
programmed when I tried to find ways to fit these things in. 

This game gets more difficult as you play, just as Crusade 
does. I sped up the play of the game by using some of the 
same methods found in Crusade. Accessing subroutines at the 
very beginning of the program and using variables instead of 
constants are two ways to speed up BASIC's execution. Modu¬ 
larizing the program also helped, for I could work on one 
aspect of the game, then add it to the main program before 
moving on to the next piece. That way, it seemed like I was 
making progress as I wrote the game, and gave me some 
incentive to continue. It's a tip you might want to try yourself. 

The program itself is pretty easy to understand and 
follow. It uses a lot of the techniques and methods you've seen 
in the book, and puts them together to create a complete game. 
It's something I enjoy playing, and I hope you will, too. 
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Program 14-2. Magneto 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

4 GOSUB1000:PRINT"{BLU}{HOMEJ{23 DOWN}"SPC(22);sFO 
RX=0T013:PRINT"N{UP}"; srem 192 

10 PRINT "{CLR}" s GOSUB 10000: GOSUB 5000: GOSUB 
{SPACE}6000: GOSUB 4700 :rem 244 

15 D = 5: GD = 25: DL = 1: SL = 5 :rem 8 

20 PRINT "{CLR}" : GOSUB 5500: GOSUB 4000 :rem 200 

40 GOSUB 1010: GOSUB 200: GOTO 210 :rem 248 

45 S = 54272: FOR X = O TO 24: POKE S + X, O: NEXT 

: RETURN srem 88 

50 GOSUB 1000: PRINT"{YEL}{HOME}{10 DOWN}{4 RIGHT} 
£32 Y3": RETURN srem 122 

55 PRINT"{YEL}{HOME}{10 DOWN}{4 RIGHT}{32 SPACES}" 

: RETURN srem 36 

60 GOSUB 1000:PRINT"{BLU}{HOME}{18 DOWN}{4 RIGHTjD 

DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD" srem 10 

65 RETURN srem 75 

70 PRINT"{BLU}{HOME}{18 DOWN}{4 RIGHT}{32 SPACES}" 
: RETURN srem 42 

75 GOSUB 1000SPRINT"{RED}{HOME}{7 DOWN}"SPC(Q);:FO 
RX=OTOW:PRINT"£j|{DOWN}{LEFT}";:NEXT:RETURN 

srem 92 

80 PRINT"{RED}{HOME}{7 DOWN}"SPC(Q);:FORX=OTOW:PRI 
NT" {DOWN}{LEFT}";:NEXT:RETURN srem 40 

85 GOSUB 1000:PRINT"{YEL}{HOME}{7 DOWN}"SPC(Z2);:F 
ORX=OTOW:PRINT"£ N3{DOWN}{LEFT}";:NEXT:RETURN 

srem 15 

90 PRINT"{YEL}{HOME}{7 DOWN}"SPC(Z2);:FORX=OTOW:PR 
INT" {DOWN}{LEFT}";:NEXT:RETURN :rem230 

95 GOSUB 1000SPRINT"{PUR}{HOME}{10 DOWN}{4 RIGHT}" 
;:FORX=OTOU:PRINT"M{DOWN}";:NEXT:RETURN:rem 118 
100 PRINT"{PUR}{HOME}Tl0 DOWN}{4 RIGHT}";:FORX=OTO 
UsPRINT" {DOWN}";:NEXT:RETURN srem 81 

110 GOSUB 1000:PRINT"£33{HOME}{17 DOWN}{4 RIGHT} 

";:FORX=OTOU:PRINT"N{UP}";:NEXT:RETURN:rem 140 
115 PRINT"£33{HOME}{17 DOWN}{4 RIGHT}";:FORX=OTO 
UsPRINT" {UP}";sNEXTsRETURN srem 72 

120 GOSUB 1000 SPRINT"{RED}{HOME}{4 DOWN}"SPC(Z1);s 
FORX=OTOU:PRINT"M{DOWN}";:NEXTsRETURN srem 3 

125 PRINT"{RED}{HOMEj{4 DOWN}"SPC(Z1);:FORX=OTOU s P 
RINT" {DOWN}";:NEXT:RETURN :rem 192 

130 GOSUB1000SPRINT"{BLU}{HOME}{23 DOWN}"SPC(22);s 
F0RX=0T013:PRINT"N{UP}"; srem 32 

135 NEXT:RETURN srem 242 

140 PRINT"{BLU}{HOME}{23 DOWN}"SPC(22);:F0RX=0T013 
SPRINT" {UP}";sNEXTsRETURN srem 107 
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145 GOSUB 1000: PRINT " {GRN} {HOME} {6 DOWN} *‘SPC(W) ; 
:FORX=OTOY: PRINT "M{DOWN}";: NEXT: RETURN 

:rera 254 

150 PRINT "{GRN}{HOME }{6 DOWN}"SPC(W);:FORX=OTOY: 

{SPACE}PRINT " {DOWN}";: NEXT: RETURN :rem 178 
155 GOSUB 1000:PRINT"{GRN}{HOME}{22 DOWN}"SPC(W);: 

FORX=OTOY:PRINT"N{UP}"; :rem 253 

160 NEXT:RETURN :rem 240 

165 PRINT"{HOME}{22 DOWN}"SPC(W);:FORX=OTOY:PRINT" 
{UP}";:NEXT:RETURN :rem 42 

170 GOSUB 1000: PRINT"{CYN}{HOME}{5 DOWN}"SPC(P);: 

FORX=OTOY:PRINT"M{DOWN}";:NEXT:RETURN :rem 101 
175 PRINT"{CYN}{HOMET{5 DOWN}"SPC(P);:FORX=OTOY:PR 
INT" {DOWN}";:NEXT:RETURN :rem34 

180 GOSUB 1000:PRINT"{YEL}{HOME}{23 DOWN}"SPC(P);: 

FORX=OTOY:PRINT"N{UP}"; :rem 133 

185 NEXT:RETURN :rent 247 

190 PRINT"{HOME}{23 DOWN}"SPC(P);:FORX=OTOY:PRINT" 
{UP}";: NEXT: RETURN :rem 50 

195 GOSUB 1000:PRINT"{HOME}{14 DOWN}"SPC(Z);"{YEL} 
**":RETURN :rem 8 

200 PRINT"{HOME}{YEL}{RVS} **** MAGNETO **** {OFF} 
{8 SPACES}{WHT}{RVS}LEVEL{OFF}"DL :rem 196 

205 PRINT"{DOWN}{RVS}{WHT}SCORE{OFF}"SC;" 

{2 SPACES}{RVS}SHIPS LEFT{OFF}"SL;"{2 SPACES} 

{RVS}HIGH{OFF}"HS: RETURN :rem 160 

210 FOR X2 = O TO GD :rem 190 

215 SYS(B) : ZT = PEEK(M) :reni 18 

220 R=INT(RND(K)*D)+K :rera 195 

230 ON R GOSUB 50,60,75,85,195 :rera 247 

240 L= PEEK(C)+(PEEK(E)*F4) :rem 179 

250 IF PEEK (L) <> G THEN GOSUB 3000 :rem 27 

260 IF PEEK (H) = J THEN GOSUB 4900 :rem 232 

265 NEXT: GOSUB 55: GOSUB 70: GOSUB 80: GOSUB 90 

:rem 102 

310 FOR X2 = O TO GD :rem 191 

315 SYS(B):ZT = PEEK(M) :rem 19 

320 R=INT(RND(K)*D)+K :rem 196 

330 ON R GOSUB 95,110,120,130,195 :rem 123 

340 L= PEEK(C)+{PEEK(E)*F4) :rera 180 

350 IF PEEK (L) <> G THEN GOSUB 3000 :rem 28 

360 IF PEEK (H) = J THEN GOSUB 4900 :rem 233 

365 NEXT: GOSUB 110: GOSUB 115: GOSUB 125: GOSUB 1 
40 :rem 27 

410 FOR X2 = O TO GD srem 192 

415 SYS(B):ZT = PEEK(M) srem 20 

420 R=INT(RND(K)*D)+K srem 197 

430 ON R GOSUB 145,155,170,180,195 srem 187 

440 L= PEEK(C) + (PEEK(E)*F4) srem 181 
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450 IF PEEK (L) <> G THEN GOSUB 3000 
460 IF PEEK (H) = J THEN GOSUB 4900 
465 NEXT: GOSUB 150: GOSUB 165: GOSUB 175 
90 

999 GOTO 210 

1000 POKE S2 , R + F: RETURN 
1010 REM SET UP FOR GAME SOUND 
1015 GOSUB 45 

1020 POKE S + 5, 15: POKE S + 6, 255 
1025 POKE S, K: POKE S + 24, 6 
1030 POKES +4, 21: POKE S + 15, 200 
1035 RETURN 

3000 IF PEEK(L) <> C2 THEN 3010 

3004 IF CH <> O THEN RETURN 
3006 GOTO 3100 

3010 REM SOUND FOR CHARACTER COLLISION 

3030 GOSUB 45: RM = 31 
3040 POKE S + K, 15 : POKE S + 5 , 16 
, 240 

3050 FOR X = O TO 60 

3060 POKE S + 15 , RM : POKE S + 24 , 

3065 POKE 53281, X/4 
3070 POKE S + 4 , 21 
3080 RM = RM -.5 

3090 NEXT: GOSUB 4000 : POKE 53281 , 0 
3092 SL = SL - K: IF SL = O THEN 3500 
3095 GOSUB 1010: CH = 0: GOTO 200 
3100 REM JEWEL CAPTURE SOUNDS 


POKE S + 24 


POKE 53281 


:rem 29 
:rem 234 
175: GOSUB 1 
:rem 47 
:rem 119 
:rem 126 
:rem 193 
:rem 176 
:rem 28 
:rem 112 
:rem 63 
:rem 169 
:rem 246 

:rera 185 
:rem 198 
TO BEAMS 

:rem 92 
:rem 41 
: POKE S + 6 
:rem 223 
:rem 156 
31 :rem 132 
:rem 231 
:rem 58 
:rem 214 
:rem 81 
:rem 172 
:rem 74 
:rem 15 


CH = CH + 1: POKE 833, 1:SC = SC + 100:rem 58 
GOSUB 45: RM = 6 : C3 = .75 :rem 133 

POKE S + K ,3: POKE S + 5 ,16: POKE S + 6 , E 

:rem 89 

POKE S + 15 , RM: POKE S + 23 , K: POKE S + 2 
4 , 31: POKE S + Zl, 90 :rem 79 


POKE S + 15 , RM: POKE S + 23 , K: 

4 , 31: POKE S + Zl, 90 
POKE S + 4 , 21 

RM = RM + C3: IF RM > 100 THEN 3140 
POKE S + 15 , RM: GOTO 3130 


:rem 54 
:rera 17 

POKE S + 15 , RM: GOTO 3130 :rem 228 
GOSUB 1010: GOTO 200 srem 15 
REM END GAME SEQUENCE :rem 246 
PRINT "{CLR}": POKE V + 21, 0: POKE S + 24, 0 

:rem 127 

PRINT"{2 DOWN}{YEL}SORRY CAPTAIN, YOU HAVE RU 
N OUT OF SHIPS" srem 80 
PRINT"{4 DOWN}{CYN}HOWEVER, YOU WERE DOING VE 
RY WELL. YOU" srem 17 
PRINT"{DOWN} MANAGED TO GET"SC;"POINTS AND MA 
KE IT" srem 158 
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PRINTSPC(13) "{DOWN} TO LEVEL"DL SPRINT" 

{2 DOWN}{WHT}{4 SPACESjHIT THE {RVSjSPACE BAR 
{OFF} TO"; :rem 176 

PRINT" TRY AGAIN"SPRINT"{DOWN}{7 SPACESjOR AN 
Y OTHER KEY TO END" srem 136 

IF SC > HS THEN HS = SC srem 110 

GET A$s IF A$ THEN 3570 srem 64 

GET A$s IF A$ = "" THEN 3580 srem 195 

IF A$ = " " THEN SC = Os CH = Os SP = 0s DL = 
Is GD = 25s SL = 5s GOTO 20 srem 243 

PRINT"{CLR}{3 DOWN}{12 SPACES}{WHT}{RVS} 

{2 SPACES}GOOD BYE{2 SPACES}{OFF}" srem 18 
FOR T = 0 TO 3000s NEXTs END srem 98 

REM VARIABLE SET UP - FOR CKX AND OTHERS 

srem 33 

POKE 828,46s POKE 829 ,60s POKE 830 ,45s POKE 
831 ,53s POKE 832 , 86 srem 156 

POKE 833, 15s POKE 251, 49s POKE 252 , 6s POK 
E 253, 49s POKE 254 , 218 srem 138 

P=2040s RG = 192s RO= 193 s S= 54272 srem 73 


B=834s C=251s E=252s F4=256s G = 86s H = 197s 
J = 10s K = Is M = 53279 srem 138 

P = 8s Q= 12s U = 13s W = 14s Y = 17s Z = 19s 
Z1 = 22s C2 = 42 srem 71 

Z2 = 27s S2 = 54273s F = 220 srem 78 

RETURN srem 165 

REM SET UP ALL COLORS FOR MULTI-COLOR MODE 

srem 46 

POKE 53281,0s REM SCREEN BLACK srem 149 

POKE 53282,14s REM BACKGROUND #1 TO LIGHT BLU 

E srem 38 

POKE 53283,4s REM BACKGROUND #2 TO PURPLE 

srem 48 

POKE 53270, PEEK (53270) OR 16s REM TURN ON M 
ULTICOLOR MODE srem 221 

RETURN srem 176 

REM DISSOLVE SPRITE ROUTINE srem 23 

IF PEEK (V+31) = 0 THEN RETURN srem 53 

IF CH = O THEN RETURN srem 134 

RM = 4s GOSUB 45s SP = SP + PEEK (V+31)s SC = 


SC + (100 * SL) 


srem 193 


POKE S + K ,RMs POKE S + 5 ,16s POKE S + 6 , 


{SPACE}E srem 206 
POKE V + 29, SPs POKE V + 23, SP srem 219 
POKE S + 15 , 5s POKE S + 24 , 31 srem 32 
POKE S + 4 , Z srem 59 
FOR T = 4 TO 80 STEP .25s POKE S + K , Ts NEX 
T srem 131 
FOR X = O TO 7s POKE P + X, RO s NEXTs POKE V 


.25s POKE S + K 


+ 28, SP 


srem 31 
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4940 

4945 

4950 

4955 

4958 

4960 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5500 

5505 

5510 

5515 

5520 

5540 

5550 

5570 

5610 


FOR T = 81{2 SPACES}TO 150 STEP .25: POKE S + 


K , T : NEXT 
GOSUB 1010 

FOR X = 0 TO 7: POKE P + X, 


RG 


:rem 231 
:rem 24 
NEXT:rein 241 


POKE V + 21, (255-SP): POKE V + 29, O: POKE V 

+ 23, O :rem 109 

IF PEEK (V+21) = 0 THEN 7000 :rem 38 

CH = 0: POKE 833, 15: GOTO 200 :rem 136 

REM BASIC LOADER FOR FAST(CKX) KEYBOARD CONTR 
OLLED CHARACTER ROUTINE :rem 8 

FOR X = 834 TO 1014: READ A: POKE X , A: NEXT 

:rem 136 

DATA 32,176,3,165,197,205,60,3,208,14,32,183, 

3.32.228.3.176.63.32 :rem 111 

DATA 160,3,76,147,3,205,61,3,208,14,32,160,3, 

32.237.3.144.44.32 :rem 249 

DATA 183,3,76,147,3,205,62,3,208,14,32,199,3, 
32,228,3,176,25,32,217 :rem 214 

DATA 3,76,147,3,205,63,3,208,14,32,217,3,32,2 
37,3,144,6,32,199,3 :rem 57 

DATA 76,147,3,160,0,173,64,3,145,251,173,65,3 
,145,253,96,24,165 :rem 28 

DATA 251,105,40,133,251,133,253,144,4 :rem 5 
DATA 230,252,230,254,96,160,0,169,32,145,251, 
96,56,165,251,233,40 :rem 124 

DATA 133,251,133,253,176,4,198,252,198,254,96 
,165,251,208,9,198,251 :rem 2 

DATA 198,253,198,252,198,254,96,198,251,198,2 
53,96,230,251,230,253,208 :rem 158 

DATA 4,230,252,230,254,96,165,251,233,160,165 
,252,233,4,96,165,251 :rem 169 

DATA 201,232,165,252,233,7,96,234 :rem 76 

RETURN :rem 169 

REM SCREEN AND VARIABLE SET UP ROUTINE:rem 62 
V = 53248:POKE 53280, 0: POKE 53281 , 0: pr in 

T"{HOME}{WHT}" :rem 26 

POKEV,28:POKEV+1,120:POKEV+2,110:POKEV+3,80:P 
OKEV+16,136:P0KEV+4,235 :rem 70 

POKEV+5,80:POKEV+6,60:POKEV+7,120:POKEV+8, 28: 
POKEV+9,186:POKEV+10,110 :rem 138 

POKEV+11,226:POKEV+12,235:POKEV+13,226:POKEV+ 
14,60:POKEV+15,186 :rem 199 

POKE V + 21, 255: POKE V + 23,0:POKE V + 28, 
{SPACE}0: POKE V + 29 , 0 :rem 181 

FOR X = 0 TO 7: POKE 2040 + X , 192: POKE V + 

39 + X , 3:NEXT :rem 128 

PRINT"{2 DOWN} EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEB 
EEEEEEEEE" :rem 140 

RETURN :rem 172 
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6000 REM READ SPRITE DATA :rem 183 

6005 FOR X = 0 TO 63: READ A:POKE X + 12288, A: NE 
XT :rem 241 

6010 FOR X = 0 TO 63: READ A:POKE X + 12352, A: NE 
XT :rem 229 

6020 REM POD 1 DATA :rem 218 

6030 DATA 0,16,0,0,56,0,0,124,0,1,255,0,2,0,128,2, 
0,128,15,255,224,20 :rem 251 

6040 DATA 130,80,25,1,48,18,56,144,242 :rem 73 

6050 DATA 108,158,242,108,158,18,56,144,25,1,48,20 
,130,80,15,255,224,2,0 :rem 206 

6060 DATA 128,1,255,0,0,198,0,1,131,0,3,1,128,0 

:rem 225 

6070 REM POD 2 DATA :rem 224 

6080 DATA 0,16,0,0,56,0,0,124,0,1,255,0,2,0,128,2, 
0,128,15,255,224,17 :rem 6 

6090 DATA 1,16,18,56,144,20,68,80,244,146,94,244,1 
46,94,20,68,80,18,56 :rem 142 

6100 DATA 144,17,1,16,15,255,224,2,0,128,1,255,0,0 

:rem 253 
:rem 168 
:rem 194 
:rem 245 
0: POKE S + 24 , 0 
:rem 126 


,198,0,1,131,0,3,1,128,0 
6110 RETURN 

7000 REM GOT THEM ALL ROUTINE 

7005 SC = SC + 500 

7010 PRINT"{CLR}": POKE V + 21, 


7020 PRINT"{2 DOWN}{CYN} CONGRATULATIONS 1i 

{2 SPACES}YOU HAVE ELIMINATED :rem 245 

7030 PRINT"{DOWN}{5 SPACESjALL OF THE DEADLY {WHT} 
{RVS} MAGNETOS {OFF}{CYN}. :rem 96 

7040 PRINT"{PUR}{2 DOWN}{12 SPACES}*************** 
{CYN}" :rem 111 

7050 PRINT"{2 DOWN}{4 SPACES}YOUR SCORE IS"SC;". W 
ELL DONE il" :rem 5 

7060 PRINT"{DOWN}{2 SPACESjNOW YOU MUST ATTEMPT TH 
E NEXT LEVEL" :rem 160 

7070 PRINT"{2 DOWN}{YEL}{7 SPACESjHIT ANY KEY TO C 


ONTINUE{3 SPACES}" 

7085 IF SC > HS THEN HS = SC 
IF A$ THEN 7090 
IF A$ = "" THEN 7100 
SP = 0 

IF GD < 5 THEN GD = 5 


7090 GET A$: 

7100 GET A$: 

7110 CH = 0: 

7140 GD = GD - 5: 

7145 DL = DL + 1 
7150 GOTO 20 

9999 REM INTRO AND INSTRUCTION ROUTINES 

10000 POKE 53280, 3:POKE 53281 , 1 
10005 PRINT"{CLR}{2 DOWN}|73{RVS}{40 SPACES}"; 

:rem 99 

10010 PRINT"{RVS}{6 SPACES}gN3MNEH3BN3M 
{2 SPACES}OP §N5|M{2 SPACES}gH|OgY3 
g2 YiOgYg Of2 YgP{6 SPACES}"; :rem 209 


:rem 29 
rem 111 
:rem 66 
rem 179 
:rem 11 
rem 114 
rem 138 
rem 104 
:rem 2 
:rem 74 
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^J 


10015 


10020 


10025 

10030 

10035 

10040 

10045 


10050 

10055 

10060 

10065 

10070 

10075 

10080 

10085 

10090 

10095 

10100 

10105 

10110 

10115 

10120 

10125 

10130 

10135 

10140 

10145 

10150 


PRINT" {2 SPACES}*** gN|{2 SPACES JgHjJ 
gN?| M iH5| |P3iN3 M &H30{4 SPACES} 

BH|{2 SPACES}gH3{2 SPACES}|NS 

{2 SPACES}*** :rem 67 

PRINT"{6 SPACES}iN|{2 SPACES}£H§§N3 

gYiP L§P3@gN3(2 SPACES}MBHlLg2 P0 

{2 SPACESTgH^{2 SPACES}Lg2 P§@{6 SPACES} 

:rem 176 


PRINT"{40 SPACES}"; :rem 4 
PRINT"{40 SPACES}"; srem 0 
PRINT"{40 SPACES}"; srem 5 
PRINT"{40 SPACES}{OFF}" srem 88 
PRINT"{6 DOWN}{BLU}{5 SPACES}INSTRUCTIONS ?? 
{2 SPACES}( {RVS}Y{OFF} OR {RVSJn{OFF} ) 


srem 66 


S = 54272s D = 4 srem 121 

POKE S + 1 ,10s POKE S + 5 ,16s POKE S + 6 , 

252 srem 247 

POKE S + 15 , D s POKE S + 23 , 1 srem 35 

POKE S + 4 , 19s POKE S + 24 , 31 srem 80 

FOR X=0 TO 30 STEP.5SPOKE S+1,X*2sPOKE S+22, 
FFsFF=FF+3 sNEXT srem 170 

FOR X=30 TO 0 STEP-.5sPOKE S+l,X*2sPOKE S+22 


,FF s FF=FF-3 s NEXT 
D = D + 2 

IF D > 20 THEN POKE S + 24 , 0s 

GET A$s IF A$ = "N" THEN POKE S 
URN 

IF A$ = "Y" THEN POKE S + 24, 0 
GOTO 10060 

GET A$s IF A$ = "" THEN 10105 

IF A$ = "N" THEN RETURN 

IF A$ = "Y" THEN POKE S + 24, 0 


srem 222 
srem 27 
GOTO 10105 
srem 121 
+ 24, 0s RET 
srem 244 
s GOTO 10125 
srem 215 
srem 34 
srem 17 
srem 197 
s GOTO 10125 
srem 208 


GOTO 10105 srem 36 

PRINT"{CLR}{12 SPACES}*** MAGNETO ***" 

srem 100 

PRINT"{2 DOWN}{2 SPACESjTHE COSMIC BALANCE O 

F THE GALAXY HAS" srem 133 

PRINT"{DOWN}BEEN UPSET BY A GROUP OF 8 DEADL 

Y ATOMIC" srem 45 

PRINT"GENERATORS WHOSE A.I. CIRCUITS HAVE BE 

EN" srem 209 

PRINT"TAMPERED WITH. YOU MUST DESTROY ALL 8 
{SPACE}TO" srem 172 

PRINT"SAVE OUR CIVILIZATION. THEY HAVE DEADL 
Y" srem 193 
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10155 

10160 

10165 

10170 

10175 

10180 

10185 

10190 

10195 

10200 

10205 

10210 

10215 

10220 

10225 

10230 

10235 

10240 

10245 

10250 

10253 

10255 

10260 

10265 

10270 

10275 

10280 


PRINT"{DOWN}BEAMS TO PROTECT THEIR 
STALS." 

PRINT"{DOWN}TO DESTROY THEM YOU 
HE POWER" 

PRINT"CRYSTALS AND GET ENERGIZED BY 
IC" 

PRINT"FORCE. THE BEAMS WILL DESTROY 
OU" 

PRINT"HIT THEM WHEN THE FORCE IS IN 
{DOWN}" 

PRINT"{6 SPACES}{RVS}HIT ANY KEY TO 
{OFF}" 

GET A$: IF A$ THEN 10185 
GET A$: IF A$ = "" THEN 10190 
PRINT"{CLR}{12 SPACES}*** MAGNETO 


POWER CRY 
:rem 182 
MUST REACH T 
srem 236 
THE ATOM 
:rem 204 
YOU IF Y 
:rem 155 
USE. 

srem 195 
CONTINUE 
:rem 45 
srem 160 
srem 25 
***<< 


srem 107 

PRINT"{2 DOWN} HOWEVER, THE MAGNETOS HAVE ON 
LY ENOUGH" srem 157 

PRINT"{DOWN}{2 SPACES}POWER TO ENERGIZE ONE 
{SPACEjOF THEIR BEAMS" srem 190 

PRINT"{DOWN}AT A TIME SO THE FORCE IS FOUND 
{SPACE}RANDOMLY" srem 75 

PRINT" IN THE BEAMS AND POWER CRYSTALS. WITH 
" srem 233 

PRINT"{DOWN}CARE YOU CAN DESTROY THEM ALL. G 
OOD LUCK" srem 120 

PRINT"{5 DOWN}{7 SPACES}{RVS}HIT ANY KEY TO 

{SPACE}CONTINUE{OFF}" srem 130 

GET A$s IF A$ = "" THEN 10230 srem 15 

PRINT"{CLR}{12 SPACES}*** MAGNETO ***" 

srem 102 

PRINT"{2 DOWN}{10 SPACES}{RVS} KEYBOARD CONT 
ROLS {OFF}" srem 83 

PRINT"{3 DOWN}{5 SPACES}{RVS}@{OFF} MOVES SH 
IP UP"SPRINT"{DOWN}{5 SPACES}{RVS}={OFF} MOV 


ES SHIP RIGHT" 

PRINT"{DOWN}{5 
LEFT" 

PRINT"{DOWN}{5 SPACES}{RVS} 
{SPACE}MOVES SHIP DOWN" 
PRINT"{DOWN}{4 SPACES}{RVS} 
MAGNETOS WHEN YOU ARE " 
PRINT"{DOWN}{5 
ED DIRECTLY " 

PRINT"{DOWN}{5 
EM." 


srem 128 

SPACES}{RVS}s{OFF} MOVES SHIP 

srem 161 
BAR {OFF} 
srem 184 
{OFF} DESTROYS 
srem 166 
SPACES}ENERGIZED AND POSITION 

srem 169 

SPACES}UNDERNEATH{2 SPACES}TH 


SPACE 


A 


srem 42 

PRINT"{PUR}{2 DOWN}{5 SPACES}{RVS}HIT ANY KE 
Y TO BEGIN THE GAME{OFF}" srem 230 
GET A$s IF A$ = "" THEN 10275 srem 33 
RETURN srem 219 
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Appendix A 

A Beginner’s Guide to 
Typing In Programs 

What Is A Program? 

A computer cannot perform any task by itself. Like a car 
without gas, a computer has potential, but without a program, 
it isn't going anywhere. Most of the programs published in this 
book are written in a computer language called BASIC. BASIC 
is easy to learn and is built into all Commodore 64s. 

BASIC Programs 

Computers can be picky. Unlike the English language, which is 
full of ambiguities, BASIC usually has only one right way of 
stating something. Every letter, character, or number is signifi¬ 
cant. A common mistake is substituting a letter such as O for 
the numeral 0, a lowercase 1 for the numeral 1, or an uppercase 
B for the numeral 8. Also, you must enter all punctuation such 
as colons and commas just as they appear in the book. Spacing 
can be important. To be safe, type in the listings exactly as they 
appear. 

Braces and Special Characters 

The exception to this typing rule is when you see braces, such 
as {DOWN}. Anything within a set of braces is a special char¬ 
acter or characters that cannot easily be listed on a printer. 
When you come across such a special statement, refer to "How 
to Type In Programs." 

About DATA Statements 

Some programs contain a section or sections of DATA state¬ 
ments. These lines provide information needed by the 
program. Some DATA statements contain actual programs 
(called machine language); others contain graphics codes. 

These lines are especially sensitive to errors. 

If a single number in any one DATA statement is 
mistyped, your machine could lock up, or crash. The keyboard 
and STOP key may seem dead, and the screen may go blank. 
Don't panic—no damage is done. To regain control, you have 
to turn off your computer, then turn it back on. This will erase 
whatever program was in memory, so always SAVE a copy of 
your program before you RUN it. If your computer crashes, you 
can LOAD the program and look for your mistake. 
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vj 


Sometimes a mistyped DATA statement will cause an 
error message when the program is RUN. The error message 
may refer to the program line that READs the data. The error is 
still in the DATA statements, though. 

Get to Know Your Machine 

You should familiarize yourself with your computer before 
attempting to type in a program. Learn the statements you use 
to store and retrieve programs from tape or disk. You'll want 
to save a copy of your program, so that you won't have to type 
it in every time you want to use it. Learn to use your machine's 
editing functions. How do you change a line if you made a 
mistake? You can always retype the line, but you at least need 
to know how to backspace. Do you know how to enter reverse 
video, lowercase, and control characters? It's all explained in 
your computer's manuals. 

A Quick Review 

1) Type in the program a line at a time, in order. Press 
RETURN at the end of each line. Use backspace or the back 
arrow to correct mistakes. 

2) Check the line you've typed against the line in the book. You 
can check the entire program again if you get an error when 
you RUN the program. 


W 

O 

C J 

C J 

'k J 

CJ 

u 

w 

c 

CJ 
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How to Type In Programs 

To make it easy to know exactly what to type when entering 
one of these programs into your computer, we have established 
the following listing conventions. 

Generally, Commodore 64 program listings will contain 
words within braces which spell out any special characters: 
{DOWN} would mean to press the cursor down key. 

{5 SPACES} would mean to press the space bar five times. 

To indicate that a key should be shifted (hold down the 
SHIFT key while pressing the other key), the key would be 
underlined in our listings. For example, S would mean to type 
the S key while holding the SHIFT key. This would appear on 
your screen as a heart symbol. If you find an underlined key 
enclosed in braces (e.g., {10 N}), you should type the key as 
many times as indicated (in our example, you would enter ten 
shifted N's). 

If a key is enclosed in special brackets, [<>], you should 
hold down the Commodore key while pressing the key inside the 
special brackets. (The Commodore key is the key in the lower- 
left comer of the keyboard.) Again, if the key is preceded by a 
number, you should press the key as many times as necessary. 

Rarely, you'll see a solitary letter of the alphabet enclosed 
in braces. These characters can be entered by holding down 
the CTRL key while typing the letter in the braces. For 
example, {A} would indicate that you should press CTRL-A. 

About the quote mode: you know that you can move the 
cursor around the screen with the CRSR keys. Sometimes a 
programmer will want to move the cursor under program 
control. That's why you see all the {LEFT}'s, {HOME}'s, and 
{BLU}'s in our programs. The only way the computer can tell 
the difference between direct and programmed cursor control 
is the quote mode. 

Once you press the quote (the double quote, SHIFT-2), 
you are in the quote mode. If you type something and then try 
to change it by moving the cursor left, you'll only get a bunch 
of reverse-video lines. These are the symbols for cursor left. 

The only editing key that isn't programmable is the DEL key; 
you can still use DEL to back up and edit the line. Once you 
type another quote, you are out of quote mode. 

You also go into quote mode when you INSerT spaces into 
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a line. In any case, the easiest way to get out of quote mode is 
to just press RETURN. You'll then be out of quote mode and 
you can cursor up to the mistyped line and fix it. 


When You 
Read: 

tCLR) 

(HOME) 

[UP} 

{down} 

(left) 

{right} 

{rvs} 

l off} 

{blk} 

{wht} 

{red} 

{CYN} 

{PUR} 

{grn} 

{BLU} 

{YEL} 


Press: 


SHIFT 


CLR/HOME 


CLR/HOME 


4 CRSR^ 


4 CRSR ^ 


SHIFT 


•CRSR- 


•CRSR- 


CTRL 

PH 

CTRL 

1 0 1 

CTRL 

1 > 1 

CTRL 

2 

CTRL 

1 * 1 

CTRL 

1 4 1 



CTRL 

1 5 1 

CTRL 

1 • 1 

CTRL 

I 7 1 

CTRL 

LoJ 


See: 

When You 
Read: 


Press: 

See: 

m 

§13 

COMMODORE 

E 

n 

KQ3 

■8S 

§23 

COMMODORE 

E 

B 

m 

133 

COMMODORE 

E 

& 

n 

§43 

COMMODORE 

E 

8H 

in 

§53 

COMMODORE 

E 

C3 

Bl 

§63 

COMMODORE 

E 

■1 

ED 

§73 

COMMODORE 

E 

El 

■ 

§83 

COMMODORE 

E 

SB 

M|: 

{FI} 


fl 


m 

m 

{F2} 


f2 


B 

n 

{F3} 


f3 


■ 

H 

{F4} 


f4 


B 

m 

{F5} 


f5 


m 

o 

Q 

{F6} 


f6 


B 

{F7} 


(7 


B 

Hi 

{K8 } 


f8 


■ 


u 

G 

w 

G 

G 

u 

o 

w 

G 

O' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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Screen Location Table 

ROW 



COLUMN 


Appendix D 

Screen Color Memory Table 

ROW 



COLUMN 
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Color Values Table 


Value To POKE Rir Each Color 

Low nybble High nybble Select multicolor 
Color color value color value color value 


Black 

0 

0 

8 

White 

1 

16 

9 

Red 

2 

32 

10 

Cyan 

3 

48 

11 

Purple 

4 

64 

12 

Green 

5 

80 

13 

Blue 

6 

96 

14 

Yellow 

7 

112 

15 

Orange 

8 

128 

— 

Brown 

9 

144 

— 

Light Red 

10 

160 

_ 

Dark Gray 
Medium 

11 

176 

— 

Gray 

12 

192 

— 

Light Green 

13 

208 

— 

Light Blue 

14 

224 

— 

Light Gray 

15 

240 

— 

Where to POKE Color Values For Each Mode 

Bit or 

Mode* 

bit-pair 

Location 

Color value 

Regular text 

0 

53281 

Low nybble 


1 

Color memory 

Low nybble 

Multicolor 

00 

53281 

Low nybble 

text 

01 

53282 

Low nybble 


10 

53283 

Low nybble 


11 

Color memory 

Select multicolor 

Extended 

00 

53281 

Low nybble 

color text# 

01 

53282 

Low nybble 


10 

53283 

Low nybble 


11 

53284 

Low nybble 

Bitmapped 

0 

Screen memory 

Low nybble ± 


1 

Screen memory 

High nybble ± 

Multicolor 

00 

53281 

Low nybble 

bitmapped 

01 

Screen memory 

High nybble ± 


10 

Screen memory 

Low nybble ± 


11 

Color memory 

Low nybble ± 


* For all modes, the screen border color is controlled by POKEing 
location 53280 with the low nybble color value. 

# In extended color mode, bits 6 and 7 of each byte of screen 
memory serve as the bit-pair controlling background color. 
Because only bits 0-5 are available for character selection, only 
characters with screen codes 0-63 can be used in this mode. 

± In the bitmapped modes, the high and low nybble color values 
are ORed together and POKEd into the same location in screen 
memory to control the colors of the corresponding cell in the 
bit map. For example, to control the colors of cell 0 of the bit 
map, OR the high and low nybble values and POKE the result 
into location 0 of screen memory. 


^J 

G 

G 

G 

^j 

o 

G 

^j 
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^j 

u 
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n 

ASCII 

CHARACTER 

ASCII 

r^ 

5 

WHITE 

50 

8 

DISABLE 

51 

r\ 


SHIFT COMMODORE 

52 

9 

ENABLE 

53 

n 


SHIFT COMMODORE 

54 


13 

RETURN 

55 

n 

14 

LOWERCASE 

56 

n 

17 

CURSOR DOWN 

57 

18 

REVERSE VIDEO ON 

58 

n 

19 

HOME 

59 

20 

DELETE 

60 


28 

RED 

61 


29 

CURSOR RIGHT 

62 

n 

30 

GREEN 

63 


31 

BLUE 

64 

32 

SPACE 

65 

n 

33 

I 

66 


34 

n 

67 


35 

# 

68 


36 

$ 

69 

n 

37 

% 

70 

n 

38 

& 

71 

39 

/ 

72 

rs 

40 

( 

73 

41 

) 

74 

n 

42 

* 

75 


43 

+ 

76 


44 

/ 

77 

n 

45 

— 

78 

46 


79 

o 

47 

/ 

80 


48 

0 

81 

n 

49 

1 

82 




n 


CHARACTER 
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w 

u 

O 

O 

ASCII 

CHARACTER 

ASCII CHARACTER 

CJ 

83 

S 

120 

0 


84 

T 

121 

□ 


85 

U 

122 

0 

86 

V 

123 

ffl 

L J 

87 

w 

124 

E 

88 

X 

125 

m 

CJ 

89 

Y 

126 

s 


90 

z 

127 

a 


91 

[ 

129 

ORANGE 

cj 

92 

£ 

133 

fl 

93 

] 

134 

f3 

V .J 

94 

t 

135 

f5 

95 

4 — 

136 

f7 


96 

B 

137 

£2 


97 

0 

138 

f4 


98 

m 

139 

f6 


99 

B 

140 

f8 

100 

□ 

141 

SHIFTED RETURN 

L J 

101 

□ 

142 

UPPERCASE 


102 

□ 

144 

BLACK 

o 

103 

□ 

145 

CURSOR UP 


104 

□ 

146 

REVERSE VIDEO OFF 

O 

105 

□ 

147 

CLEAR SCREEN 

- 

106 

□ 

148 

INSERT 


107 

□ 

149 

BROWN 


108 

□ 

150 

LIGHT RED 

109 

E 

151 

GRAY 1 


110 

0 

152 

GRAY 2 


111 

□ 

153 

LIGHT GREEN 

CJ 

112 

□ 

154 

LIGHT BLUE 


113 

■ 

155 

GRAY 3 

114 

□ 

156 

PURPLE 


115 

0 

157 

CURSOR LEFT 

116 

D 

158 

YELLOW 


117 

□ 

159 

CYAN 


118 


160 

SPACE 

u 

119 
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ASCII 

CHARACTER 

Asai 

CHARAC 

162 

B 

200 

□ 

163 

n 

201 

□ 

164 

□ 

202 

□ 

165 

□ 

203 

□ 

166 

m 

204 

□ 

167 

□ 

205 

E 

168 

Q 

206 

0 

169 

E 

207 

n 

170 

□ 

208 

□ 

171 

m 

209 

m 

172 

a 

210 

□ 

173 

□ 

211 

s 

174 

ED 

212 

□ 

175 

□ 

213 

□ 

176 

B 

214 


177 

B 

215 

□ 

178 

B 

216 

s 

179 

m 

217 

□ 

180 

□ 

218 

0 

181 

c 

219 

E 

182 

□ 

220 

E 

183 

n 

221 

CD 

184 

n 

222 

0 

185 

u 

223 

H 

186 

□ 

224 

SPACE 

187 

. 

225 

E 

188 

H 

226 

B 

189 

B 

227 

□ 

190 

E 

228 

□ 

191 

H 

229 

□ 

192 

B 

230 

m 

193 

0 

231 

□ 

194 

m 

232 

B 

195 

B 

233 

E 

196 

□ 

234 

□ 

197 

□ 

235 

m 

198 

□ 

236 

Q 

199 

□ 

237 

□ 
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238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 


CHARACTER 

a 

u 

E 

H 

B 

a 

□ 

E 

□ 

n 

n 

y 

□ 

H 

H 

a 

e 

a 


0-4, 6, 7,10-12,15,16, 21-27,128, 
130-132, and 143 are not used. 


W 

O 

w 

u 

w 

u 

u 

u 

u 

CJ 

w 

'w' 

CJ 

CJ 
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o 


Uppercase and 

Lower- and 


Uppercase and 

Lower- and 

POKE 

Full Graphics Set 

Uppercase 

POKE 

Full Graphics Set 

Uppercase 

n 

0 

@ 

@ 

31 

4 — 

<- 

rs 

1 

A 

a 

32 

-space- 

2 

B 

b 

33 

! 

! 


3 

C 

c 

34 

u 

n 

4 

D 

d 

35 

# 

# 


5 

E 

e 

36 

$ 

$ 


6 

F 

f 

37 

% 

% 

r^ 

7 

G 

g 

38 

& 

& 

n 

8 

H 

h 

39 

/ 

/ 

9 

I 

i 

40 

( 

( 


10 

J 

) 

41 

) 

) 

11 

K 

k 

42 

* 

* 

n 

12 

L 

1 

43 

+ 

+ 


13 

M 

m 

44 

/ 

/ 


14 

N 

n 

45 

- 

- 

n 

15 

O 

o 

46 

. 

. 

16 

P 

P 

47 

/ 

/ 


17 

Q 

q 

48 

0 

0 

18 

R 

r 

49 

1 

1 

n 

19 

S 

s 

50 

2 

2 


20 

T 

t 

51 

3 

3 


21 

U 

u 

52 

4 

4 

n 

22 

V 

V 

53 

5 

5 

23 

W 

w 

54 

6 

6 

n 

24 

X 

X 

55 

7 

7 

25 

Y 

y 

56 

8 

8 


26 

Z 

z 

57 

9 

9 


27 

[ 

[ 

58 

: 

* 


28 

£ 

£ 

59 

/ 

/ 


29 

30 

] 

r 

] 

r 

60 

61 

< 

< 


n 
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Uppercase and 

Lower- and 


Uppercase and 

Lower-and 

'w' 

POKE 

Full Graphics Set 

Uppercase 

POKE 

Full Graphics Set 

Uppercase 


62 

> 

> 

99 

n 

n 

63 

? 

? 

100 

□ 

□ 


64 

B 

B 

101 

□ 

□ 


65 

0 

A 

102 

ss 

m 


66 

m 

B 

103 

□ 

□ 


67 

B 

C 

104 

y 

y 

68 

69 

□ 

□ 

D 

E 

105 

106 

E 

□ 

?* 

□ 

u 

70 

□ 

F 

107 

m 

0 

w 

71 

□ 

G 

108 

Q 

a 


72 

□ 

H 

109 

0 

h 


73 

□ 

I 

110 

□ 

□ 


74 

□ 

I 

111 

u 

y 

75 

□ 

K 

112 

H 

h 

U 

76 

□ 

L 

113 

h 

s 

77 

s 

M 

114 

B 

B 

O 

78 


N 

115 

a 

b 


79 

□ 

O 

116 

□ 

□ 

vj 

80 

n 

P 

117 

E 

E 


81 

■ 

Q 

118 

□ 

3 

82 

□ 

R 

119 

n 

n 

U 

83 

a 

S 

120 

n 

n 

84 

□ 

T 

121 

u 

y 

o 

85 

□ 

U 

122 

□ 

b 


86 


V 

123 

. 

EJ 

'U 

87 

□ 

w 

124 

H 

3 


88 

0 

X 

125 

ED 

0 

89 

□ 

Y 

126 

E 

E 


90 

0 

z 

127 

S 

B 

91 

EB 

EB 

128- 

255 reverse video of 0-127 

V. J 

92 

E 

E 





93 

m 

m 





94 

0 

m 




v. j 

95 

a 

ss 




96 

-space- 





97 

E 

E 




98 

Q 

y 
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o 
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Key 

Keycode 

Key 

Keycode 

A 

10 

6 

19 

B 

28 

7 

24 

C 

20 

8 

27 

D 

18 

9 

32 

E 

14 

0 

35 

F 

21 

+ 

40 

G 

26 

- 

43 

H 

29 

£ 

48 

I 

33 

CLR/HOME 

51 

J 

34 

INST/DEL 

0 

K 

37 

*- 

57 

L 

42 

@ 

46 

M 

36 

* 

49 

N 

39 

t 

54 

O 

38 


45 

P 

41 

/ 

50 

Q 

62 

= 

53 

R 

17 

RETURN 

1 

S 

13 

, 

47 

T 

22 


44 

U 

30 

/ 

55 

V 

31 

CRSRti 

7 

w 

9 

CRSRZ? 

2 

X 

23 

fl 

4 

Y 

25 

f3 

5 

z 

12 

6 

6 

1 

56 

f7 

3 

2 

59 

SPACE 

60 

3 

8 

RUN/STOP 

63 

4 

11 

NO KEY 


5 

16 

PRESSED 

64 


The keycode is the number found at location 197 for the current 
key being pressed. Try this one-line program: 

10 PRINT PEEK (197): GOTO 10 

Values Stored at Location 653 
Code Key(s) pressed 
0 (No key pressed) 

1 SHIFT 

2 Commodore 

3 SHIFT and Commodore 

4 CTRL 

5 SHIFT and CTRL 

6 Commodore and CTRL 

7 SHIFT, Commodore, and CT RL 
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Reference Books of Interest 

Commodore 64 Programmer's Reference Guide. Indianapolis: 
Commodore Business Machines, Inc., and Howard W. Sams and 
Co., Inc., 1982 

COMPUTERS First Book of Commodore 64 Sound and Graphics. 
Greensboro, N.C.: COMPUTE! Publications, Inc., 1983 

COMPUTERS First Book of Commodore 64 Games. Greensboro, N.C. 
COMPUTE! Publications, Inc., 1983 

COMPUTERS First Book of Commodore 64. Greensboro, N.C.: 
COMPUTE! Publications, Inc., 1983 

Heilbom, John. COMPUTERS Reference Guide to Commodore 64 
Gmphics. Greensboro, N.C.: COMPUTE! Publications, Inc., 1983 

Leemon, Sheldon. Mapping the Commodore 64. Greensboro, N.C.: 
COMPUTE! Publications, Inc., 1984 

Mansfield, Richard. Machine Language for Beginners. Greensboro, 
N.C.: COMPUTE! Publications, Inc., 1983 
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The Automatic Proofreader 

"The Automatic Proofreader" will help you type in program 
listings in this book without typing mistakes. It is a short 
error-checking program that hides itself in memory. When acti¬ 
vated, it lets you know immediately after typing a line from a 
program listing if you have made a mistake. Please read these 
instructions carefully before typing any programs. 

Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Watch 
out for typing an 1 instead of a 1, or an O instead of a 0, extra 
commas, etc. 

2. SAVE it on tape or disk at least twice before running it for 
the first time. If you mistype the Proofreader, it may cause a 
system crash when you first run it. By SAVEing a copy before¬ 
hand, you can reLOAD it and hunt for your error. Also, you'll 
want a backup copy of the Proofreader. Future COMPUTE! 
Books as well as COMPUTE'.'s Gazette will use the Proofreader. 

3. RUN the Proofreader. It will be POKEd into a relatively 
safe area of memory, the cassette buffer. 

4. Type RUN to activate the Proofreader. If you ever need 
to reactivate it, just enter the command SYS 886 and press 
RETURN. 

Using The Proofreader 

Most of the listings in this book have a checksum number 
appended to the end of each line, for example ":reml23". The 
only exceptions are some of the one-line listings. Don't enter 
this statement when typing in a program. It is just for your infor¬ 
mation. The rem makes the number harmless if someone does 
type it in. It will, however, use up memory if you enter it, and 
it will confuse the Proofreader, even if you entered the rest of 
the line correctly. 

When you type a line from a program listing and press 
RETURN, the Proofreader displays a number at the top of your 
screen. This checksum number must match the checksum number in 
the printed listing. If it doesn't, it means you typed the line 
differently than the way it is listed. Immediately recheck your 
typing. Remember, don't type the rem statement with the 
checksum number; it is pubished only so you can check it 
against the number which appears on your screen. 
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The Proofreader is not picky with spaces. It will not notice 
extra spaces or missing ones. This is for your convenience, 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces, 
since the Proofreader will catch practically everything else that 
can go wrong. 

There's another thing to watch out for: if you enter the line 
by using abbreviations for commands, the checksum will not 
match up. But there is a way to make the Proofreader check it. 
After entering the line, LIST it. This eliminates the abbrevia¬ 
tions. Then move the cursor up to the line and press RETURN. 
It should now match the checksum. You can check whole 
groups of lines this way. 

When you're done with the Proofreader, disable it by 
pressing RUN/STOP-RESTORE (hold down the RUN/STOP 
key and press RESTORE). If you need it again, enter SYS 886. 
It will then be ready once again to act as your personal typing 
aid. However, sometimes the Proofreader can be wiped out of 
memory. In this case, you'll have to reLOAD the Proofreader 
from tape or disk. 

Automatic Proofreader 

100 PRINT"{CLR}PLEASE WAIT...":FORI=886TO1018:READ 
A:CK=CK+A s POKEI,A s NEXT 

110 IP CK<>17539 THEN PRINT"{DOWN}YOU MADE AN ERRO 
R"tPRINT"IN DATA STATEMENTS.":END 
120 SYS886SPRINT"{CLR}{2 DOWN}PROOFREADER ACTIVATE 
D.":NEW 

886 DATA 173,036,003,201,150,208 
892 DATA 001,096,141,151,003,173 
898 DATA 037,003,141,152,003,169 
904 DATA 150,141,036,003,169,003 
910 DATA 141,037,003,169,000,133 
916 DATA 254,096,032,087,241,133 
922 DATA 251,134,252,132,253,008 
928 DATA 201,013,240,017,201,032 
934 DATA 240,005,024,101,254,133 
940 DATA 254,165,251,166,252,164 
946 DATA 253,040,096,169,013,032 
952 DATA 210,255,165,214,141,251 
958 DATA 003,206,251,003,169,000 
964 DATA 133,216,169,019,032,210 
970 DATA 255,169,018,032,210,255 
976 DATA 169,058,032,210,255,166 
982 DATA 254,169,000,133,254,172 
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Appendix J 


988 DATA 151,003,192,087,208,006 
994 DATA 032,205,189,076,235,003 
1000 DATA 032,205,221,169,032,032 
1006 DATA 210,255,032,210,255,173 
1012 DATA 251,003,133,214,076,173 
1018 DATA 003 


Index 


u 

u 

u 

u 


address 11 

ADSR envelope 259,262-65 
setting 264-65 

AND operator, in bit manipulation 90-94 
animation 2-30,119-34 

different from movement 22,103-4 
in Joust 22 

Apple computer 16-17 
artificial intelligence 32,33 
ASCII codes 51,52 
table 343-46 
assembler program 16 
Asteroids 27,36,40,113,305,311 
point inflation and 38-39 
Astrosmash 172 
Atari computer 16-17 
attack (sound) 264 

"Automatic Proofreader" program 351-53 
"Avoid the Ship" program 187-90 
modification 190 

"Back and Forth Dragon" program 119-22 
background colors 45-49 
band pass filter 271 
BASIC language 
located in ROM 12 
why slow 16 
"Beeps" program 266 
Berserk 32, 33,315 
bit 

defined 10 

in character patterns 70-73 
bit manipulation, in multicolor mode 89-94 
bit-pairs 

in multicolor character mode 95-96 
in multicolor sprites 151-52 
bitmap block 13 
bitmapped mode 14 
border colors 45 
"Border" program 54-55 
Breakout 2 
Burger Time 34 
byte 

defined 10 

in character patterns 70-73 
"Card Invaders" program 306-10 
cassette buffer 213 
cassettes, cheap ones work better 9 
Centipede 28 
character memory 14 

indexed by screen code 70 
location 69-70 


moving 74-76 
restrictions 75-76 
character patterns 70-74 
characters, redefining 29 
character set 49 
a memory block 13 
see also "character memory" 
character set flipping 122-23 
example programs 123-28 
CHR$ function 51 
"Checkerboard" program 58-59 
color memory enhancement 65 
Cobra 128 
collisions 235-53 
detection 235 
in Centipede 31 
in Joust 23 
sprites and 246-53 
variables and 31 
PEEK and 31,58,235 
color memory 49,62-66 
PEEK and POKE and 63 
relation to screen memory 62 
"Colorpeek" program 64-65 
color TV 10 
color values table 342 
combining characters 59 
PRINT and 85 

Commodore 64 Programmer's Reference Guide 
144 

Commodore 64 User's Guide 9 
compromise, in game design 2 
COMPUTERS First Book of Commodore Sound 
and Graphics 87 
control matrix 197-98 
conventions, variable names 78 
"Crusade" 315-25 
cursor 

moving with PRINT 60-61 
custom characters 69-99 
Datassette 9 
DAIA statements 
cautions with 337 
custom characters and 78,81-82 
decay (sound) 264 
Defender 27,40,128,195,315 
"Diagonal Movement" program 174-76 
Dig-Dug 36,37,40,305,311 
disk drive 9 

documentation 21-22,41-42 
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Donkey Kong 27,29,32,34,37,40,104,113, 
257,311 

Donkey Kong Jr. 29,32,40,113 
ease of understanding 

importance in programs 295-98 
end routines, sample 291-92 
enemies, intelligent 
in Joust 24 
levels of 32 

'Tailing Blocks" program 173-74 
farewells 283,290-92 
"Fillin''program 57-58 
filters, sound 271-73 

demonstration programs 272-73 
Firebird 28 

"Flickering Stars" program 128-34 
frequency (sound) 259 
"Frequency Change" program 266 
Galaga 28,37 
Galaxians 28,40 
game design 21-42 

different from programming 7 
game programming, different from design 
7 

gate bit (sound) 259 
Gorf 305 

graphics characters 69 
graph paper 9 
high pass filter 271 
homing pattern 32,33 
sprites and 186-90 
ideas 27-28 
IF/THEN GOSUB 31 
illusions of speed 115-18 
incentives to play again 
in Joust 25-26 
instructions 283,286-89 
importance of 286 
samples 287-88 

intelligent sprites, philosophy of 186 
interest-increasing techniques 36-37 
in Joust 25 

interest-maintaining techniques 
bonus turns 40 
incentives 38 
increasing difficulty 36-37 
new scenery 37 
point inflation 38-39 
scoring 38 
sound 40-41 
story rewards 40 
unpredictability 35-36 
vanity board 39 
introductions 283-86 
code last 283 


sample 284 
sound in 285-86 
invisible objects 47-48,250-53 
detection program 252-53 
Joust game 34,40,195 
analyzed 21-26 
artificial intelligence and 33 
joystick 206-12 

machine language and 220-22 
movement with 207-12 
reading 206-7 
sprites and 209-12 
Kangaroo 33,34,38,40,311 
Kemall2 
keyboard 195 
reading 196-98 
key code 196 

controlling movement with 196-98 
sprite movement and 201-3 
table 349 
kilobyte 10 

levels of difficulty 288-89 
example 289 

"Little Boxes" program 112-13 
low pass filter 271 
machine language 12 
cassette buffer and 213 
defined 15-16 
joystick and 220-22 
movement with 212-29 
SAVE before RUNning 337 
sprites and 223-29 
"Magneto" 325-33 
main loop 30-31 

programming for speed and 298-99 
memory, economical use of 295 
memory blocks 12-14 
mindless pattern 32-33 
Missile Command 27,36,38,40,311 
missiles 305-311 
defined 305 

looping with player movement 306 
problems with 305 
"ML Character Keyboard Controller" 
program 214-16 

expanded demonstration 216-17 
"Mission: Nova!" program 236-40 
sound effects 276-78 
"Move and Customize" program 84 
"Move Character Set" program 83-84 
movement 

controlling 195-232 
different from animation 22,103-4 
in Joust 22 
wraparound 104-9 
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Mr. Do 305,311 

RAM, defined 11-12 

kJ 

kJ 

multicolor character mode 94-99 

"Random Notes" program 267-68 


bit-pairs in 95-96 

random numbers 56-57 

kJ 

"Multicolored Forest" program 97-98 

random screen displays 55-57 
"Raygun" sound effect program 269-70 

multicolor mode 15,89-99 

kJ 

enabling 153 

reflexes, human 33 

multiple movements 113-15 

release (sound) 264 


neighborhood kids, useful for game 

reversed characters 93-94 

kJ 

testing 8 

ring modulation 268-71 

"One Note" program 261-62 

RND function 182 

kJ 

ON/GOSUB 31 

Robotron 315 

"OnOff" program 47-48 

ROM, defined 11-12 


originality, importance of 27-28 

ROM character set 75,82-83 

kJ 

OR operator, in bit manipulation 91-94 

Scramble 128,305 

other people's programs, uses of 5-6 

screen 14 


Pac-Mtm 29,33,34,37,38,40,257-58,315 

screen codes 51-52 

kJ 

paddles 229-32 

index character memory 70 


sprites and 231-32 

table 347-48 

kJ 

pages of memory 10-11 

screen color memory table 41 

patience, importance of 5 

"Screendemo" program 46-47 

kJ 

"Patterns" program 73-74 

screen design 45-66 

PEEK command 11-12 

"Screenful" program 51 


collisions and 31 

screen location table 341 

kJ 

defined 50 

screen memory 49-53 

personalization 292 

organization of 52-53 

kJ 

pixels 29,52 

reading 53 

player movement 30-31 

relocating 63-64 


playfield 

screen memory block 12-14 

kJ 

in Joust 22 

screen movement 128-30 

pocket calculator, uses of 9 

screen seam 176-82 

kJ 

POKE command 

scrolling 110 

character movement and 198-201 

programmed 128-30 


defined 49-50 

shape matrix 78-82 

kJ 

sprites and 14 

"Ships" program 86-87 

"POKE Movement Demonstration" 

SID register 260-61,278 

kJ 

program 107 

SID sound chip 12,15 

discussion 105-9 

organization 258-59 


Pong 195,229 

6502 chip 16-17 

kJ 

"PRINT Character Movement" program 

6510 microprocessor 11,16 

203-5 

sound effects, sample 278-80 

kJ 

"Printscreen" program 61-62 

Sound Interface Device chip, see SID chip 

PRINT statement 

sound 


disadvantages 110 

background 273-74 

kJ 

movement and 109-11 

filtering 271-73 

scrolling and 129 

in Joust 26,257 

kJ 

useful in graphics 59-62 

introduction using 285-86 

program documentation, importance of 

uses of 257-58 
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Space Invaders 2,32,113,172 

kJ 

program portability 17 

player movement and 30 

programmable characters 15 

sound in 257 

kJ 

programming habits, importance of 296-97 

unpredictability in 36 

programming techniques 295-300 

"Spark" program59-60,244-46 


psychology 35 

speed, programming for 295,298-300 

kJ 

Qix 27 

main loop and 298-99 

Rally-X 34 

single timer and 299-300 

kJ 
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sprite memory 143 
"Sprite # 1" program 149 
"Sprite Parade" program 159-67 
sprite pattern block 13 
sprite POKE table 145 
sprite priorities 171-72 
sprites 14-15,85,113,137-91 
defined 137 
drawing 138-43 
enabling 146-47 
expanding 150-51 
locating 143-44 

machine language and 222-29 
paddles and 229-32 
positioning 147-49 
sprites, colliding 246-53 
sprites, intelligent 85-91 
sprites, moving 171-91 
sprites, multicolor 151-58 
sprites, random moving 182-85 
"Star-Eater" program 241-43 
"Starfield" program 55-56 
story, in Joust 26 
strings 59 

subroutines, sound 275-78 
delays with 275 
sustain (sound) 264 


SYS command 214 
TAB function 61 
Tempest 2, 37, 288 
testing 8 

"Thirty-two Custom Characters" program 
87-88 
Tron 28 

"Ultrafont" character editor 87 
variables 31 
Venture 27,37 
VIC-II video chip 

color changes and 48-49 
located in ROM 12 
programming notes 301 
video bank selection and 301-2 
video banks 302 
video bank selection 301-2 
video block 75 
moving 76-77 
video block codes 76-77 
video memory, reconfiguring 77-78,130-31 
video memory block 13-14 
voice 258 
volume 259 
wave form 259 
Zaxxon 128 
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COMPUTE! Books 

P.O. Box 5406 Greensboro, NC 27403 
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Ask your retailer for these COMPUTE! Books. If he or she 
has sold out, order directly from COMPUTE! 

For Fastest Service 
Call Our TOLL FREE US Order Line 

800 - 334-0868 

In NC call 919-275-9809 


Quantity Title Price Total 

_Machine Language for Beginners $14.95* _ 

_Home Energy Applications $14.95* _ 

_COMPUTEI's First Book of VIC $12.95* _ 

_COMPUTEI's Second Book of VIC $12.95* _ 

__COMPUTEI's First Book of VIC Games $12.95* _ 

_COMPUTEI's First Book of 64 $12.95* ___ 

_COMPUTEI's First Book of Atari $12.95* _ 

_COMPUTEI's Second Book of Atari $12.95* _ 

_COMPUTERS First Book of Atari Graphics $12.95* _ 

_COMPUTEI's First Book of Atari Games $12.95* _ 

_Mapping The Atari $14.95* _ 

_Inside Atari DOS $19.95* _ 

_The Atari BASIC Sourcebook $12.95* _ 

_Programmer's Reference Guide for TI-99/4A $14.95* _ 

_COMPUTEI's First Book of Tl Games $12.95* _ 

_Every Kid's First Book of Robots and Computers $ 4.95t _ 

_The Beginner's Guide to Buying A Personal 

Computer $ 3.95t _ 


‘ Add $2 shipping and handling. Outside US add $5 air mail; $2 
surface mail. 

t Add $1 shipping and handling. Outside US add $5 air mail; $2 
surface mail. 

Please add shipping and handling (or each book 
ordered. 




Total enclosed or to be charged. 
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All orders must be prepaid (money order, check, or charge). All 
payments must be in US funds. NC residents add 4% sales tax. 

□ Payment enclosed Please charge my: □VISA □ MasterCard 

□ American Express Acc't. No. _ Expires /_ 

Name _ 


n 


Address 


o 

r *s 


City _ State _ Zip 

Country _ 

Allow 4-5 weeks for delivery. 
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Creating Your Own Game 


You want to Create your own games, but you're not sure just 
how to begin. After aLL, game ivritingcan be one of t he most chal¬ 
lenging programming tasks. Whether you are an advanced pro¬ 
grammer or just starting out, you'll find many valuable, useful 
techniques and suggestions here. This book — a guide fur anyone 
who has thought of designing and writing a game program on the 
Commodore £4 — shtnvs vuu hrrw. 

Hem are just a few of the topics covered: 


* Custom character sets 


* Sprite creation and movemen! 

* Animated graphics 

* Title screens, instructions, and farewells 

* Sound 

* Joystick and keyboard Controls 

* Machine language imovement routines 

* 3 luw to develop an idea 

■ Tips on getting teal speed in BASIC programs 


ISBN 1 0-942386-3^1 



